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Sobre este libro 


Este libro es una guía pará comprender programas y mejorar tu BASIC paso a 
paso. No todo el mundo quiere escribir sus propios programas, pero una vez que 
entiendes el BASIC, es fácil adaptar o desparasitar programas de otras personas; y 
desde ahí hay un corto paso a que escribas los tuyos. 


Al principio del libro hay una corta guía sobre los principales comandos en 
BASIC, con muchos ejemplos para que veas cómo funcionan. A continuación el 
libro enseña cómo se usan los comandos en programas para hacer cosas bastante 
complicadas, cómo crear un banco de datos, dibujar modelos en la pantalla y 
ordenar datos. 


Los programas están escritos en BASIC «standard», esto es, una versión de BASIC 
que, con pequeños cambios, funcionará en la mayor parte de las computadoras. 
Hay una guía para transformar los programas, de modo que funcionen en tu 
computadora en las páginas 10-11 y las conversiones para las computadoras 
Sinclair que usan un BASIC ligeramente no standard, aparecen al final del libro. 


A lo largo de todos los programas hay detalladas explicaciones de cómo 
funcionan y de técnicas y rutinas útiles que tú podrías usar en tus propios 
programas. También hay muchas ideas para experimentar con los programas y 
adaptarlas para que lleven a cabo diferentes trabajos. 


Introducción al 
BASIC 


El lenguaje de programación BASIC 
consta de unas cien palabras. Cada 
palabra es una instrucción que le dice a 
la computadora que haga algo. Para 
hacer que la computadora realice un 
determinado trabajo tú le das una lista de 
instrucciones y la información sobre la 
que trabajar, es decir, un programa. Sólo 
puedes usar palabras del BASIC como 
instrucciones y también debes seguir las 
reglas, llamadas sintaxis, del lenguaje. 

En BASIC cada línea de instrucciones 
tiene un número. Los números 
normalmente van de 10 en 10 para que 
puedas añadir otras líneas sin tener que 
renumerar todo el programa. 


Introducción de un programa 


Cuando estás introduciendo un programa en la computadora tienes que teclear RETURN (o 
ENTER o NEWLINE, varía en las diferentes computadoras) al final de cada línea. Esto hace que 
la computadora guarde esa línea en su memoria y espere a la siguiente; cuando hayas 
introducido todas las líneas del programa teclea RUN. Esto le dice a la computadora que lleve 
a cabo las instrucciones. 


FRINT es la instrucción que 
le dice a la computadora 
que escriba algo en la 
pantalla, en este caso 
la palabra PLATANOS. 


Si tecleas una instrucción sin número 

entonces la computadora la llevará a cabo 

directamente, tan pronto como presiones 

RETURN (o ENTER o NEWLINE), esto se 

) lama un comando directo. Por ejemplo para 
Sn ss a la computadora que exponga las 

Ss pe del programa que le has metido, 

- lecleas LIST como un comando directo. Para 

orrar la pantalla en la mayoría de las 


putadoras se teclea CLS. 


120 IF F=R THEN GOTO 
130.1 C<>10 THEN PR 
140 NEXT C 


10 CLS 
20 PRINT «DESPEGUE DE LA NAVE ESPACIAL» 


30 LET G=INT (RND(1)=20+1) 
40 LET W=INT (RND(1)-40+1) 

50 LET R=GW 

60 PRINT «GRAVEDAD=>»; G 

70 PRINT «POR FAVOR, INTRODUCE LA FUERZA» 
80 FOR C=1T0 10 

90 INPUT E 


400 IF E>R THEN PRINT «MUY ALTO»; 


110 IF F<R THEN PRINT 


Esta es una parte de 
un programa en 
C 


150 PRINT 
160 PRINT «FALLASTE => 

170 PRINT «LOS INTRUSOS SE...» 
180 STOP ; 
190 PRINT «BUEN DESPEGUE» 


Este es el cursor. Indica dónde 
aparecerá el próximo carácter. 


Un carácter es cualquier 
letra, número o símbolo. 


Hay que tener cuidado para teclear los 
programas con precisión si escribes cualquier 
palabra de BASIC, o tecleas letras, números O 
puntuación equivocada la computadora no 
será capaz de seguir las instrucciones. Un 
error en un programa se llama parásito. La 
mayor parte de los parásitos son por errores 
al teclear, pero a veces son errores en la 
lógica de un programa y pueden conducir a 
resultados sorprendentes. 


Guía de BASIC 


En las próximas páginas hay una 
cómo usarlos. Si tú tienes una co 
manual, ya que al 
computadoras. 


PRINT >» 


Dile a la computadora que exponga algo en 
la pantalla, las letras y los símbolos deben ir 
entre comillas, pero con los números no es 
necesario, como se muestra en los ejemplos a 
la derecha. En estos ejemplos no hay número 
de línea, así que la computadora lleva a cabo 
cada instrucción tan pronto presiones 
RETURN. Escribirá exactamente lo que hayas 
tecleado entre las comillas, incluyendo 
espacios. La palabra PRINT sola en una línea 
le dice a la computadora que deje una línea 
en blanco. 


Haciendo cálculos >» 


También puedes usar PRINT para obtener las 
respuestas a cálculos. La computadora usa los 
signos usuales para sumar y restar, pero para 
multiplicar usa un * y para dividir un signo /. 
SQR(N) es la instrucción que encuentra la raíz 
cuadrada de un número, N y f,on, o ** 
significa elevado en la potencia de. Por 
ejemplo, 3 f 2 significa 3 elevado a la 
potencia de 2, ó 3 al cuadrado. 

En operaciones complicadas la 
computadora siempre realiza las 
multiplicaciones y divisiones antes de sumar o 
restar. Para evitar esto puedes usar paréntesis 
para indicar a la computadora en qué orden 
tiene que realizar las sumas. En cálculos con 
muchos paréntesis la computadora realiza 
primero los paréntesis interiores. 


Paréntesis para hacer 
que la computadora 
haga el cálculo en el 
orden que tú quieres. 


Comas, y punto y coma 
Estos dicen a la computadora dónde tiene 
que imprimir el próximo carácter en la 
pantalla. Un punto y coma le dice que no deje 
ningún espacio y la coma le dice que se 
mueva adelante un cierto número (el número 
varía en las diferentes computadoras). 
Algunas computadoras necesitan una coma 
o punto y coma para separar las sentencias 
PRINT y los datos o variables (letras que 
representan datos en la memoria de la 
computadora). Prueba con los ejemplos de la 
derecha para ver cómo funciona en tu 
computadora. 


a sed los comandos BASIC más importantes y 
putadora, deberías comprobar los comandos en tu 
gunas palabras y reglas varían ligeramente en las diferentes 


La palabra PRINT por sí 
misma fabrica esta línea 
vacía. 


PRINT 120954277 
12372 

PRINT 23951 
188 


PRINT 17+5 
199) 

PRINT 221/13 
17 


PRINT SOR(9) 

3 

PRINT SOR(9)+3 2 
12 

PRINT 2:17=5 

29 

PRINT 2x(17=5) 
24 


La coma hizo que 
la computadora 
dejara este 
espacio. 


Variables > 

La información que le das a la computadora 
para que trabaje sobre ella se llama datos 
(data). Cuando le des a la computadora algún 
dato para que lo guarde en su memoria 
también tienes que darle un nombre. El 
nombre se llama variable, y cuando quieres 
que la computadora haga algo con el dato 
que tú le has dado te refieres a él por su 
nombre de variable, se llama variable porque 
el dato al que se refiere puede cambiar 
durante el programa. 

Se usan letras del alfabeto, o una letra y un 
número, por ejemplo A6, como nombres para 
datos numéricos, un dato consistente en letras 
y símbolos se llama cadena, y para cadena se 
usan letras del alfabeto o una letra y un 
número seguidos del signo dólar, por 
ejemplo P$ (pronunciado P dólar o P string) o 
P6$. Las diferentes computadoras tienen 
reglas distintas para los nombres de 
variables, así que compruébalo en el manual 
de tu computadora. 


En algunas Computadofas 
puedes usar palabras como 
nombres para datos 
numéricos y palabras con 
signos $ para cadenas. 


Ten cuidado de no usar 
palabras que contengan 
palabras de BASIC ya que 
palabras como LETTER, 
DATA, SPRINTER podrían 
confundir a la computadora 


LET » Puedes usar 
Es una forma de introducir datos en la 10 LETA=5 PRINT con el 
computadora. LET A5 dice a la computadora 20 LET C$=«CONEJOS» nombre de una 

A z variable para 
que guarde el número 5 en su memoria y que 30 PRINT A decis 16 
lo llame A y LET C$=«CONEJOS» guarde la 40 PRINT C$ computadora que 
cadena de letras en un espacio de la memoria RUN exponga el dato 
bajo el nombre de C$. Las cadenas siempre 5 en la pantalla. 
tienen que estar entre comillas pero los CONEJOS 
números no lo necesitan. 


INPUT >» 

Este es un modo de introducir datos en la 
computadora mientras está llevando a cabo 
un programa. La palabra INPUT va seguida 


0 PRINT «¿COMO TE LLAMAS?» 
20 INPUT N$ 


z RUN 
por el nombre de una variable. Cuando la 
computadora llega a un comando INPUT ra TE LLAMAS? 


imprime un signo de interrogación (u otro 
símbolo) en la pantalla y espera a que teclees 
el dato. Si la variable de INPUT es una 
variable numérica deberás darle un dato 
numérico y si es una variable de cadena 
debes introducirle una cadena. 

En la mayoría de las computadoras puedes 
poner palabras entre comillas en una 
instrucción INPUT, para hacerlo más claro, 
como se muestra en el segundo ejemplo a la 


O 


Signo de 
interrogación de 
la computadora. 


La respuesta de la 
persona almacenada 
en N$. 


10 INPUT «¿COMO TE LLAMAS?» NS 
20 INPUT «¿CUANTOS ANOS TIENES?»; A 
RUN 


derecha. No uses este método en la ¿COMO TE LLAMAS? JACK 

computadora VIC, ya que el VIC almacenará ¿CUANTOS AÑOS TIENES? 21 A «. 

las palabras en la variable junto con el dato Signos de de 
que introduzcas. La mayoría de las don 


computadoras necesitan un punto y coma 
entre las palabras y el nombre de la variable. 


READ/DATA >» 


Es otro método de darle información a la 
computadora, la palabra READ está seguida 
por uno o más nombres de variables mientras 
la información de las variables está en una 
línea que empieza con la palabra DATA. La 
información puede estar en cualquier lugar 
del programa. Cuando la computadora 
encuentra la instrucción READ busca la 
palabra DATA e introduce cada uno de los 
elementos en orden dentro de las variables 
los elementos de información han de ir 
separados por comas y en algunas 
computadoras las cadenas de información han 
de ir entre comillas. Otras sólo necesitan 


comillas si la cadena contiene espacios o 
puntuación. 


Este elemento de 
información está 
entre comillas porque 
contiene espacios. 


IF A=B THEN PRINT «IGUAL» 


IF/THEN » IF. X<=>Y THEN PRINT «DISTINTO» 
Esta es una manera de comprobar IF X>Y THEN PRINT «X MAYOR» 


información, y de decirle a la computadora 
que haga ciertas cosas de acuerdo con el A 
resultado. Puedes comprobar si dos datos son 


iguales, distintos o si uno es mayor o menor IF AS=«NO» THEN STOP 

que el otro usando los signos expuestos a la IF X+Y=5 THEN LET X=X+1 

derecha. Prácticamente todas las 

instrucciones pueden ir detras de la palabra 

THEN, pero si la comprobación no es Esto le dice z la 
verdadera ignora el THEN y continua con el >, computadora que deje de 
resto del programa. z ejecutar el programa. 
GOTO >» 


Le dice a la computadora que vaya a otra 
línea del programa. Se usa normalmente con 
IF/THEN para que la computadora solo se 
bifurque si se dan ciertas condiciones. Ten 
cuidado cuando uses GOTO por sí solo, ya 
«que puede crear un bucle continuo como se 
muestra en la línea 185 a la derecha; la única 
manera de detener el programa sería teclear 
BREAK o ESCAPE (varía en las diferentes 
computadoras). 


GOSUB/RETURN >» 

GOSUB hace que la computadora vaya a una 
subrutina, una parte especial del programa 
para llevar a cabo una tarea específica. La 
palabra RETURN al final de la subrutina 


Evitar usar GOTO para 
hacer un bucle continuo 
como en la línea 185. 


manda a la computadora de nuevo a la 100: INPUT «¿QUIERES JUGAR?»; T$ 
instrucción justo después del comando 110 1E T$=«SI» THEN GOSUB:500 
GOSUB. Obtendrás un error si te olvidas de la 120 REM COMIENZA EL. JUEGO 
palabra RETURN. 


REM >» ; La computadora ignora esta 


Esta es la abreviatura de «reminder» línea. 
(recordatorio) o «remark» (nota). La 
computadora ignora aquellas líneas que 


empiecen por la palabra REM y es útil para 510. PRINT <¿COMO-TE LLAMAS?» 
introducir notas en el programa que te 590. INPUT N$ 
recuerden que está ocurriendo. : 


La línea 540 manda a la computadora a la 
instrucción inmediatamente después de 
GOSUB. 


- húmero entero por defecto. . 


Bucles FOR/NEXT > 


Las palabras FOR, TO y NEXT hacen que la 
computadora repita una parte del programa 


10 FOR J=1 TO 3 
20 PRINT «J LOOP»; J 


un cierto número de veces. En el ejemplo de 30 NEXT J 

la derecha, las líneas 10 a 30 se repiten 3 40 PRINT 

veces y cada vez la computadora imprime el RUN 

texto de la línea 20. J es una variable para J LOOP 1 La varisola al ARAN 

contar el número de repeticiones. La línea 30 3 LOOP 2 línea hace que'la e la 
manda a la computadora a buscar el próximo 3 LOOP 3 computadora imprima e 


valor de J cada vez que 


valor de J y cada vez que el bucle se repite 
el bucle se repite. 


se añade uno a J. Cuando J = 3 la 
computadora continua con el resto del 
programa. 


STEP >» 

Esto cambia la manera en la que J cuenta el 
número de bucles. Por ejemplo FOR J] = 1 TO 
STEP 2 hace que J] se incremente en 2 cada 
vez y STEP X le haría incrementarse en el 
valor que hubiera almacenado en X. En el 
ejemplo de la derecha STEP — 1 hace que J 
cuente hacia atrás. 


10 FOR J=10 TO 1 STEP—1 
20 PRINT J; «DIAS PARA NAVIDADES» 
30 NEXT y 

40 PRINT «FELICES NAVIDADES» 

RUN 

10 DIAS PARA NAVIDADES 

9 DIAS PARA NAVIDADES 
8 DIAS PARA NAVIDADES 
7 DIAS PARA NAVIDADES 


Ambas partes del 
bucle interno han 
de estar dentro del 
bucle externo u 

obtendrás un error. 


Bucles de anidamiento >» 


Puedes hacer repeticiones bastante 
complicadas usando bucles dentro de bucles. 
Estos se llaman bucles de anidamiento. Por 
ejemplo, en el programa de la derecha cada 
vez que el bucle desde las líneas 10 a 50 es 
repetido el bucle de las líneas 20 a 40 se 
repite 12 veces. Cada vez que se repite el 
bucle interno de la línea 30 imprime el valor 
deJ x L 


10 FOR I=2 TO 12 
20 FOR J=1 TO 12 

( 30 PRINT J; «VECES»; l; «=>»; Jx*| 
40 NEXT J 


o NEXT | 
ucle externo. 


Comandos de gráficos >» 


La computadora hace dibujos iluminando ; z 
El número de pixels que la 


pequeños cuadrados llamados pixels, en la computadora puede iluminar 
pantalla. La instrucción para iluminar pixels a lo largo de la pantalla se 
varía con las diferentes computadoras. Los llama ancho de la pantalla y 
programas en este libro usan la instrucción el número hacia arriba o 
PLOT X, Y donde X e Y son las coordenadas hacia abajo en algunas 

del pixel. Para dibujar una línea los computadoras es la altura de 


programas usan DRAW X, Y. La mayoría de 
las computadoras tienen instrucciones 
similares, pero algunas pueden necesitar una 
instrucción adicional para que les digan que 
modalidad de gráficas quieres”. 


RND >» 


Hace que la computadora genere un número 
aleatorio aunque la instrucción precisa varía 
en diferentes computadoras. En algunas 
RND(9) genera un número entre 1 y 9. Otras 
necesitan una instrucción más complicada 
como esta: INT(RND(1) + 9 + 1) la 
computadora calcula todo lo que está dentro 
del paréntesis primero. RND(1) hace que 
genere un número entre 0 y 1. Multiplica este 
por 9, el mayor número que quiere, entonces 
le añade 1 ya que la palabra INT le hace un 


Algunas 
computadoras usan 
RND(0) en vez de 

RND(1). 


1d 


0,0109425x9 + 1 = 


* La mayoría de las : 
: Computadoras tiene j : amero 
diferente de colores y pixels. T Varios «modos» y en cada modo pueden trabajar con un nun 


Matrices Y 


Una a hs de A OS de información almacenados juntos bajo el nombre de 
una vari ES ds des Da la variable como un espacio en la memoria de la computadora 
col IA cl SEA Eolo ie Las da E pueden ser unidireccionales, esto es, una 
s : yas, idim ner varias filas de cajas. Tu localizas un element 
una matriz unidimensional por el número de la caj áj ibuj PES 

; e ja en que está, ej.: en el dibujo de abajo 
AS$(4) es PASA. Para matrices bidimensionales tienes que dar el número de la fila y la columna, 


ej.: D(3, 2) es 15. Los números entre paréntesis se llaman subíndices. 


DIM A$(5) y DIM D(4,3) 


MTS) 


> 


Antes de usar una matriz tienes que decirle a 
la computadora lo grande que es usando la 
palabra DIM (abreviatura de dimensión) 
como se muestra a la derecha. Para 
introducir datos en una matriz usas 
READ/DATA con un bucle. Para matrices 
bidimensionales necesitas bucles de 
anidamiento como se muestra a la derecha. 

En este ejemplo 1 es el número de fila y J 
es el número de columna. Cada vez que se 
repite el bucle interior J] pone información en 
la siguiente columna de la fila. Cuando se 
repite el bucle 1 la computadora empieza con 
una nueva fila. i 


LEFT$ y RIGHTS > 


Se utilizan para hacer cosas con los 
caracteres dentro de las variables de cadena. 
Por ejemplo, LEFT$(A$, 4) le dice a la 
computadora que tome 4 caracteres de la 
izquierda de A$ y RIGHT$(A$, 5) significa 
que tome 5 de la derecha. Las computadoras 
Sinclair no usan estos comandos. Para ver las 
instrucciones usadas en computadoras 
Sinclair ver página 11. 

V 


MID$ y LEN » 


MIDS$ le dice a la computadora que coja 


caracteres del centro de una cadena y LEN te 


dice a ti cuántos caracteres incluyendo 
espacios y puntuación hay en una cadena. 
Por ejemplo, MID$(K$,2,4) significa tome 4 
caracteres del centro de K$ empezando por 
el segundo carácter. Ver en página 11 las 
instrucciones para usarlos en computadoras 
Sinclair. 


20 DIM D(4, 3) 


30 FOR |=1 TO 4 ; O 
40 FOR J=1 103 a sentencia 

debería estar al 
50 READ DÍ, J) principio del 
60. NEXT J programa ya que sólo 
70-NEXT 1 ha de ser usada una 
80 DATA5, 12, 16 Sn 
90 DATA 3,2, 7 
100. DATA 8, 15, 11 


110 DATA 4, 1, 7 


10. LET AS=«PARA KEET> 
20 PRINT LEFTS(AS, 4) 
25 PRINT LEFTS(AS, 2) 
30 PRINT 

40 PRINT RIGHTS(AS, 5) 
RUN 

PARA 

PA 


AKEET 


Este es el número de 
caracteres en K$. 


El BASIC en este libro 


Los programas en este libro están escritos en BASIC standard. Algunas computadoras, 
no obstante, tienen sus propios sistemas especiales para hacer cosas por lo que | 
tendrás que hacer algunos pequeños cambios para hacer funcionar los programas en 
tu computadora. En estas dos páginas hay algunos puntos que deberías tener en 


cuenta. ] E 
Los programas están escritos para funcionar en muchas marcas de computadora 
ta las características especiales de alguna 


diferentes por lo que no tienen en cuen : 
máquina en particular. Una vez que Sepas como funcionan los programas ya podrás 


adaptarlos para que usen algunas de las características especiales de tu computadora, 


Nombres de variables > 

Algunas computadoras pueden usar palabras 
como nombres de variables mientras que 
otras solo aceptarán letras o letras y dígitos. 
Por ejemplo, en computadoras Sinclair puedes 
usar palabras cortas para nombres de 
variables numéricas pero sólo se te permite 
usar una letra para nombres de variables de 
cadena. En los programas en este libro la 
mayoría de las variables están nombradas con 
palabras para hacer más fácil su 
comprensión. Si tu computadora no acepta 
palabras usa sólo la primera letra de la 
palabra para el nombre de la variable. 


Algunas computadoras 
toman a y A como la 


misma variable. 


LET » 


La mayoría de las computadoras no necesitan 
la palabra LET en la sentencia LET FRUTAS 
= «MANZANA». Otras tampoco necesitan 
THEN en sentencias IF ... THEN. Todos los 
programas en este libro usan LET y THEN 
pero los puedes excluir si tu computadora no 
los necesita. 


Iniciando variables >» 


En algunas computadoras tienes que fijar o 
inicializar una variable antes de que puedas Una cadena vacíal | 
usarla. Esto significa que tienes que darle un se llama cadena |! 
valor a la variable al principio del programa nula. 

como se muestra a la derecha. Otras 
supondrán que una variable numérica es 0 y 
una variable de cadena está vacía si no están 
inicializadas. Los programas en este libro 
incluyen líneas para inicializar variables pero 
los puedes dejar fuera si tu computadora no 
los necesita. 


INPUT >» 

La mayoría de las computadoras aceptarán 

palabras entre comillas con sentencias INPUT. | 
La diferencia puede estar en que necesiten ao En algunas computadoras | 
un punto y coma delante de la variable a desa un espacio dentro 
introducir o si automáticamente dejan un pa a de las comillas o los datos 
espacio entre las palabras y los datos que saldrán pegados a las 
introduces. Puedes averiguar lo que necesita palabras. 


E tu computadora experimentando o mi 
a SOLA € o 

10 tumamual mirando en 

ok 


No uses este mét . 
datos, odo en la computadora VIC ya que pondrá en la variable tanto las palabras COmO los | 


“DATA 


100 DATA RATON, JERBO, RATA 
110 DATA GNU, «PEREZOSO DE TRES DEDOS, 


Ser especialmente cuidadoso al escribir líneas 
de datos. Cada elemento de información debe 
estar separado por una coma y es muy fácil 
cometer errores. Algunas computadoras 


Líneas multisentenciales 
500 PLOT 40, 1: DRAW 1, 1 


180 IF A=10 THEN PRINT «CORRECTO»: GOTO 100 


120 DATA «CIERVO, ROJO», «RINOCERONTE, NEGRO». GIRAFA 


Elementos de 
información entre 
comillas que 
incluyen espacios 
y elementos de 
puntuación. 


también necesitan que las palabras estén 
entre comillas. Otras sólo necesitan comillas 
si la información incluye espacios o 
puntuación. 


Esto sólo ocurre 
si A = 10. 


La mayoría de las computadoras aceptan 
varias instrucciones en la misma línea 
separadas por dos puntos como se muestra 
abajo. Esto usa menos espacio en la memoria 
y puede hacer la lectura del programa más 
sencilla. Si tu computadora no acepta líneas 
multisentenciales pon cada instrucción en 


una línea diferente. Si estás usando líneas 
multisentenciales en tus propios programas 
ten cuidado al poner sentencias adicionales 
después de IF... THEN, ya que sólo serán 
llevadas a cabo si la condición IF es 
verdadera. 


Estos comandos varían en todas las 
computadoras. En los programas de este 
libro la instrucción para producir un número 
aleatorio entre 1 y N (donde N es cualquier 
número) es INT(RND(1)*N + 1). Los 
comandos de gráficas son PLOT X, Y para 


omputadoras Sinclair y Cadenas 
Las computadoras Sinclair trabajan con 
cadenas de una manera no stándard. No 
usan LEFT$, RIGHT$ o MIDS$. En su 
lugar tienes que decirles cuáles son los 
caracteres que deseas tomar de una 
cadena. Por ejemplo, en la computadora 
Sinclair PRINT A$ (1 TO 4) es lo mismo 
que PRINT (LEFT$(A$,4) y PRINT AS(4 
TO 8) es lo mismo que MID$(A$,4,5). 

En matrices de cadenas cada cadena 
debe tener el mismo número de 
Caracteres (puedes rellenar cadenas 
cortas con espacios) y cada carácter de 
Una cadena es almacenado en un 
compartimento separado en la cadena. 
Algunos de los programas en este libro 
necesitan ser reformados para funcionar 
en computadoras Sinclair y las 
Conversiones vienen dadas en las págs 46-47 


un punto y DRAW X, Y para una línea. 
Tendrás que sustituir los comandos de tu 
computadora por todos estos si tu 
computadora necesita una instrucción 
especial para gráficos. 
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Aprender BASIC estudiando los 
programas 


Una buena manera de aprender BASIC es estudiando los programas de otras 
personas y viendo cómo funcionan. Estudiando los programas de este libro puedes 
aprender a usar bucles y cadenas, a escribir programas de gráficos simples y las 
diferentes formas de almacenar y ordenar información. A primera vista algunos de los 
programas parecen realmente complicados. Si bien un programa complicado no es 
más que una larga lista de comandos en BASIC unidos con un orden. En estas dos 
páginas hay algunos consejos que te ayudarán a estudiar y comprender programas. 


Estudio de un programa 

La mayoría de los programas están compuestos de varias partes diferentes (a veces llamadas 
rutinas o módulos) que llevan a cabc tareas diferentes. Por ejemplo, en un juego de 
persecución de cohetes una parte del programa será para dibujar los cohetes en la pantalla, el 
resto de las partes registrarán los ataques y blancos e indicarán el nivel de combustible, la 


velocidad e imprimirán las puntuaciones finales. 


1. Dibujando 2. Registrando 
cohetes. ataques y 
blancos. 


4. Escribiendo 
las 


z untuaciones. 
3. Calculando los ni- Pp 


veles de combustible 
y la velocidad. 


El primer paso a la hora de estudiar un 
programa es intentar reconocer las diferentes 
partes y averiguar para qué sirven. Esto ie da 
una idea general de cómo funciona un 
programa. Busca subrutinas que lleven a cabo 
trabajos determinados así como grandes 


Probablemente la cosa más difícil de 
coraprender en los programas sean la: 

” : Ñ 
variables. Antes de que escribas un programa 
A una computadora es una buena idea 

a cuál será la función de cada variable 
y hacer nota de ellas. Algunas variables se 


saltos en los números de línea. Líneas que 
empiezan cien o mil números más adelante 
suelen indicar una nueva parte del programa. 
Algunas veces las diferentes partes del 
programa están indicadas con sentencias 
REM. 


usan normalmente para la misma tarea así 
que puedes reconocerlas inmediatamente. e 
ejemplo, las letras 1, J, K, L, se usan 
normalmente para bucles y Z o Z$ se usa Par 
información que sólo será necesaria durante 
un corto periodo. 


Ejecución Y corrección de programas 


Después de averiguar para qué sirven las 
variables escribe el programa en una 
computadora. Como los programas están 
escritos en BASIC standard, puede que tengas 
que cambiar algunos de los comandos BASIC 
para que sirvan a tu computadora. 


Una vez hayas encontrado todos los errores 
ejecuta el programa algunas veces para ver 
cómo funciona. Es una buena idea a estas 
alturas grabarlo en un cassette o disco para 
que no tengas que escribirlo de nuevo. 


LETA = 10/B +1 


Puedes usar la computadora para que te 

ayude a comprender cómo funciona el 

pc Orema: Prueba a alterar el valor de una de 
as Variables y fijate como afecta al programa. 

e sólo un pequeño cambio cada vez para 
E ver el efecto de cada cambio. 

de erda escribir los valores correctos otra 

Cuando hayas terminado. 


Entonces prueba y ejecuta el programa. 
Habrá seguramente algunos errores así que 
saca el listado del programa en la pantalla y 
busca errores tipográficos o comandos que 
sean incorrectos para tu computadora. 


2707 
LA 


Entonces vuelve al listado y estudia cada 
línea intentando averiguar qué hace. Busca 
pequeñas rutinas que pueden servirte para 
incorporarlas en tus propios programas. 


El comando STOP 
hace que la 
computadora se 
detenga aquí. 


200 LET A=10/B+! 
203 PRINT A 
205 STOP 


También puedes insertar líneas para escribir 

los valores de las variables para que así 

puedas ver cómo cambian a lo largo del 

programa. Puedes encontrar útil insertar 

comandos STOP también y así poder estudiar 

el programa por etapas, pero recuerda 

borrarlos después. Algunas computadoras 

tienen un comando CONTINUE que puedes 13 
usar después de STOP. 


Uso de cadenas 


Este programa te enseña cómo cambiando comandos BASIC simples puedes hacer 
que la computadora lleve a cabo tareas complejas. El programa es un Juego de 
encontrar palabras en el que la computadora te pregunta una palabra, entonces 
escribe las letras aleatoriamente a lo largo de la pantalla y te pregunta que aciertes el 
número de veces que aparece la palabra. Usa los comandos para manejar cadenas 
MID$, RIGHT$ y LEN y números aleatorios*. pe: 

Hay dos tareas principales para llevar a cabo en el programa escribir las letras 
aleatoriamente en la pantalla y hacer que la computadora cuente el número de veces 


que la palabra aparece correctamente. 


JUEGO DE ENCONTRAR PALABRAS 

POR FAVOR, TECLEA UNA PALABRA 
¿TARTA? 

AHORA MIRA SI PUEDES ENCONTRAR TU PALABRA TECLEA EN FORMA DE NUMERO LAS VEC 
A MEDIDA QUE LAS LETRAS APARECEN EN LA CREAS QUE TU PALABRA HA APARECIDO: 
PANTALLA ¡INCORRECTO! 

PRESIONA RETURN PARA EMPEZAR TU PALABRA HA APARECIDO 2 VECES 


Elección de las letras aleatorias MID$(WS,R,1) significa tomar 
: una letra de W$ partiendo 
Elige un número de la letra R. 
del 1 al 4. 


El programa usa MID$ con un número para decidir qué letra selecciona de WS. 
aleatorio para elegir las letras que escribe. Guarda la letra en L$ y en la línea 180 la 

Tu palabra está almacenada en W*$. En la escribe en la pantalla. Cada vez que el bucle 
línea 160 toma un número aleatorio de 1 hasta de la línea 150 a 200 se repite se almacena un 
la longitud de tu palabra y lo almacena en R. nuevo número en R y se escoge una letra de 
Entonces la línea 170 usa el número en R WS. 


Buscando la palabra 


e O 


Línea 200 Después de que el bucle de las 


líneas 150-200 se haya repetido 
varias veces, la variable 
BUSCANDOS está llena de letras. 


Al principio del programa la com: j 
putadora j S 
O E ed compras quita. el primer carácter de BUSCANDOS y 


llamado BUSCAND j pone la letra aleatoria al final de la cadena 
meo dds na et se AS Epa e ir ida 200). Entonces en la línea 20 da 
. án e 
14 Cada vez que coge una nueva letra aleatoria el a Po a Ñ io 


* Para 
| adaptar el programa para computadoras Sinclair (Timex) ver página 46 


dd da encontrar palabras 


Usa el comando E tuc 
'0m 
para borrar la putadora 


a «10 DE ENCONTRAR PALABRAS»: PRINTJ-77])/)/|/|/]) Esta es una línea od 
de con un 


'ANDOS=«>» PE punto y coma que separa 2 instrucciones. 
Inicia variables vacías para usar más 


46 PRINT «POR FAVOR TECLEA UNA PALABRA CORTA» Jr Programa 


T L 
AS 


ES DN : Jl EN(WS) | 
a ea An aa tantas veces 
| LET BUS SCANDOS=BUSCANDOS + «x» letras den o ao esto es LEN 


WS. Cada vez que se e el bucle se 


AHORA MIRA SI PUEDES ENCONTRAR» 

PRINT «TU PALABRA A MEDIDA QUE LAS LETRAS» 
PRINT «VAN APARECIENDO EN LA PANTALLA» espere que tec putadore 
O INPUT <PRESIONA RETURN PARA EMPEZAR»; 25 aa mayoría de las € e 0 


130 CLS 
140 REM ELECCION DE LETRAS ALEATORIAS 
Inicia un bucle desde las líneas 150 
150 FOR 1=1. TOA oO Era rciólrES 50 x a 
palabra. 


letras de tu 


160 LET R=INT(RND(1)+LEN(WS) +1) ———————————. Elige un número aleatorio de hasta la 
longitud de tu palabra y lo pones en R. 


170 e R, 1). Usa el número en R para recoger una 


letra de W$ y la guarda en L$. 
Escribe la letra en L$ seguida de un 
espacio punto y coma hace que la 
o se quede en la misma * 
línea a escribir cada carácter. 


180 PRINT Lite », Esto significa toma LEN(W$) — 1 letras 

190 REM BUSCANDO LA pos <A de la derecha de BUSCANDOS, añade 
la letra en L$, y entonces pone el 

200 LET BUSCANDOS=RIGHTS(BUSCANDOS, LEN(WS)-1)+L$ J————— nuevo conjunto de letras otra vez en 


y guard e de veces que la 
la el número 
210 IF BUSCANDOS=W$ THEN LET N=N+1 ———————————— palabra aparece correctamente. 


220 NEXT | 
= Este es un bucle de retardamiento. No 


a ninguna instrucción que llevar a 


230 FOR I=1 TO 1000 cabo pero hace que la computadora se 
240 REM NO HAGAS NADA pare unos segundos mientras pasa por 
250 NEXT | todos los valores de 1. 

260 CLS 

265 PRINT «TECLEA EN FORMA DE NUMERO LAS VECES» 

270 PRINT «CREES QUE TU PALABRA HA APARECIDO EN LA PANTALLA» 

275 INPUT G Guarda tu número en G. 

280 PRINT Compara G con N (la variable que la 


290 IF G=N THEN PRINT CORRECTO!» Hz — computadora usa para contar el número 
300 IF G<>N THEN PRINT «INCORRECTO!» de palabras correctas). 
310 PRINT «TU PALABRA APARECIO»; N; «VECES» 


dá Bucles y números aleatorios 


Este programa es un juego especial que 
también comprueba tu cálculo mental. 
Enseña algunas de las memonas que hay 
que utilizar, bucles y números aleatorios 
y también hay algunos efectos especiales 
de pantalla que podrás usar Para tus 
propios programas. Es un Programa 
bastante largo pero la mayoría de las 
“líneas son sentencias PRINT para 
preparar la pantalla para el juego. 


Juego de emergencia en vuelo espacial 


100 CLS 

110 FOR I=1 TO 20 

115 PRINT «****ATENCION»»>; 
118 PRINT «»*ALARMA ROJA+**0»; 
120 FOR J=1 TO 10 


Usa la instrucción de tu computadora 
para borrar la pantalla. 


Las líneas 110 a 135 son bucles de 
anidamiento. Cada vez que se llevan a 
A cabo se escribe la alarma de las líneas 
WA 115-118, y el bucle ] se repite diez veces. 
: El bucle J es un bucle de retardamiento 
a para hacer que la computadora se 
ET” detenga un momento para que puedas 
leer el aviso. 


Cambia los números 
en los bucles de 
retardamiento para que 
sirvan a tu computadora. 


140 CLS 
150 FOR |=1 TO 20 
155 PRINT «****DANOS EN LOS CIRCUITOS +**0; 


A/ 160 FOR J=1 TO 10 
(os REM NO HAGAS NADA “Las líneas 150-180 trabajan como las 
170 NEXT J líneas 110-135. 
180 NEXT | 
190 CLS : ama escribe 
200 PRINT «ESTA ES LA COMPUTADORA DE TU NAVE HABLANDO...» de aaa da la pantalla. 
210 PRINT Si las frases son muy largas para tu 
220 PRINT «TENEMOS PROBLEMAS. NO PUEDO CALCULAR LAS PRO- pantalla inserta nuevas líneas PRINT. 
GRAMACIONES DE ALIMENTACION DE COMBUSTIBLE». 
230 PRINT 
240 PRINT «A MEDIDA QUE NOS APROXIMAMOS A LA TIERRA TENDRAS 
QUE HACER LOS CALCULOS». : 


PS 2 Sólo. deja Ñ 

260 PRINT «PUEDO DECIRTE EL COMBUSTIBLE QUE NECESITAMOS EN E 
CADA ETAPA Y EL PERIODO DE TIEMPO EN EL QUE HA DE SER UTILI- 

270 PRINT- 

280 PAIN «DEBES OMDI EL COMBUSTIBLE ENTRE EL TIEMPO 

NA PROPORCION CON LA QUE LA NAVE 

QUEMAR EL COMBUSTIBLE». EE 

290 PRINT ( 

300 PRINT «AQUI TIENES UN EJEMPLO». 


310 PRINT J————__ Suibraya las palabras en ans Enferior. 
320 PRINT «COMBUSTIBLE=24». ya las palabras e 


330 PRINT <TIEMPO=6». 
345 PRINT 


350 INPUT «POR FAVOR, DIVIDE EL COMBUSTIBLE ENTRE EL TIEMPO Y de Tu respuesta se almacena en respuesta 


Si tu computadora mueve el 
texto fuera de pantalla antes de 
que hayas tenido tiempo de 

leerlo borra algunas líneas Con 
PRINT sól 


TECLEA LA RESPUESTA RAP ES 
UPRO DAMENte»; RESPUESTA. 


pe de Como SAINT <NO. PRUEBA DE NUEVO, TU VIDA “| — El GOTO sólo se lleva a cabo silá 
80 CLS : respuesta no es 4 (si tu compul? 


usa líneas multisentenciales e A 
THEN en una nueva línea Con 


-Este juego no tiene 


efectos gráficos ni de 
sonido pero puedes añadir 
instrucciones de tu 
computadora. 


390 PRINT «DE ACUERDO. AHORA DEBES TENER TODAS LAS 
RESPUESTAS CORRECTAS» 

395 PRINT «O LA NAVE SE VERA DANADA» 

400 PRINT «SI COMETES MAS DE DOS ERRORES» 

405 PRINT «TODOS SEREMOS DESTRUIDOS» E 

NE Espera a que presiones RETURN. 


420 INPUT «PRESIONA RETURN PARA DECIRME QUE (para la computadora ORIC 
ESTAS LISTO»; Z$ presiona una tecla y después 
430 CLS RETURN). 


440 PRINT «¡¡¡ATENTO, ESTAMOS EMPEZANDO!!!» 
450 LET <DAÑOS=0». Inicia una variable llamada Daños. 


Combustible es una variable para contar los 
460 FOR FUEL=720 TO 120 STEP—120 ] bucles. También se usa en los cálculos. En 
la línea 460, combustible = 720 y decrece 
en 120 cada vez que se repite el bucle. 


470 LET T=INT (AND(1)»5+2) Estos números se escogerán de forma que 
la suma en la línea 520 es siempre número 
480 PRINT entero. 
490 PRINT <COMBUSTIBLE=>»; COMBUSTIBLE 
500 PRINT «TIEMPO=»; T Genera números aleatorios de 2 a 6 que 
510 PRINT dividirán exactamente el valor de 
5 ad hace 1 ción usando ) 
20 LET R=COMBUSTIBLE/T a computadora hace la operació ) 
T y alm 
530 INPUT «DAME LA PROPORCION AHORA»; RESPUESTA Sia la tespuesada 
| 940 IF RESPUESTA=R THEN GOTO 600 correcta la computadora va a la línea 600. 


La variable Daños guarda la cuenta de tus 


350 LET DAÑOS=DAÑOS+1 


560 PRINT errores. 
570 PRINT «DAÑOS *xex» 
380 PRINT Si cometes más de dos errores la 


590 IF DAÑOS>2 THEN 60TO 640. H——————————————— computadora se sale del bucle y va 
VEL 


600 NEXT FUE a la línea 640. 


610 CLS e a 
620 PRINT «FELICIDADES LO HAS HECHO TAN BIEN COMO YO Solamente dibuja esta linea si 
E de d res. 

Md PODIDO HACERLO. HAS ALCANZADO LA TIERRA SIN haces menos de dass 


A COTO 720 

LS 

65 pe 

560 ra E o a e emellas aleatoria en la | 

| 70 FOR 5 E Cada vez que el bucle 1 se repite 
E COR J=1 TO INT (RND(1)+l+50) pa e utadora dibuja una estrella y 
A entonces el bucle 1 hace que deje Un 


anidamiento dibujan una 


590 NEXT número aleatorio de espacios. 


Crear un banco de datos sobre fútbol 


Una base de datos es una gran cantidad de información almacenada en una 
computadora. La información está organizada de forma que la computadora puede 
comparar y combinar datos y números de varias maneras diferentes para que una 
persona que esté usando la base de datos pueda recibir información útil en un corto 
espacio de tiempo. 

En las páginas siguientes hay un programa para una base de datos del campeonato 
del mundo de fútbol. Este es un ejemplo de una pequeña base de datos que puedes 
usar para averiguar qué equipo ganó la copa cada año desde 1930, o en qué año 
ganó un equipo concreto. Al final del programa hay algunas ideas para reformar la 
base de datos para que contenga información diferente como el índice de una revista 
o los datos de un estudio de la naturaleza. 

En una base de datos hay tres partes principales. Necesitas un modo adecuado de 
almacenar información, un medio para recuperarla y un menú. Un menú es una lista 
de las diversas cosas que un programa puede hacer del que puedes escoger lo que 
quieras. El programa también debe ser «amistoso para el usuario» esto es, debe dar a 
la persona que está usando la base de datos instrucciones varias y no dejar de 
funcionar (crash) si se comete un error. 


Ejemplos del trabajo de una base de datos 


Almacenamiento de la información 


1930 | 1934] 1938 | 1950 | 1954 | 1958 


URUGUAY 
ARGENTINA 


ITALIA 
HECOSLOVAQUIA 
HUNGRIA 


ALEMANIA-OESTE 


BRASIL 
SUECIA 
INGLATERRA 


Para emparejar los equipos y los años el de las filas y hasta abajo en las columnas 
Ea aja bata de información y puedes ver qué equipo ganó y en qué ano. a 
ia po a o igual que tú lo programa es una forma automática de ha 
a ro. En el cuadro el número esto y desde luego con grandes cantidades 

o que el equipo ganó el campeonato y de información es más rápido que un Cua E 
q. a que fue finalista. Leyendo a lo largo > 


cer 


>. 
A 


. 


Construcción de una matriz 


matrices. Una matriz es una variable que 
información separados. 


Necesitas dos matrices unidimensionales, una 
con 12 compartimentos para contener la lista 
de los años y otra con 10 para contener los 
equipos. Estas se llaman AÑO y EQUIPO $. 


Cómo usa la computadora 
la matriz 


Para Encontrar qué equipo ganó el 


peonato del mundo en, digamos, 1938, la 
OMputadora busca 1938 en la matriz AÑO y 


e 
"cuentra que está en el compartimento 3. 


CAS >. ES 


Ñ ira en 
A 
47 AND Mira en d 
y e 40) 7 NN 
Dd) Farias Y 
: holes e Poll 


Para referirte a un elemento en 
Una matriz usa el nombre de la 
matriz y la posición del elemento 
en ella. Por ejemplo AÑO (5) 
significa el quinto elemento en 
ANO y M(7, 3) significa el 
elemento en la fila 7, columna 3 
de M. Los números entre 
o se llaman subíndices. 


Para almacenar todos los datos numéricos 
para el cuadro necesitas una matriz 
bidimensional con 10 filas y 12 columnas. Esta 
se llama M (de Matriz) en el programa. 


EQUIPO$(3) = ITALIA 


rr 


EQUIPOS$(5) 


2 


a 
A. ¡AD 
pS á 


Bo 


| triz 
Entonces mira en la columna 3 de la ma 
cuando encuentra un 1 ó 2 mira el número de 
la fila y lo usa para buscar el nombre del 
equipo de EQUIPOS. 
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El programa de la base de datos 


Hay siete partes principales dentro del 
programa y cada parte se lleva a cabo dentro 
de una subrutina diferente. Las primeras 
líneas le indican a la computadora qué 
subrutina usar y después de llevar a cabo una 
subrutina vuelve a estas líneas. 

Las subrutinas que empiezan en las líneas 
200 y 300 son para escribir la lista de equipos 
y años. Las líneas 400-500 son para encontrar 
en qué año un equipo concreto ganó la copa, 
mientras que las líneas 500-600 son para 
encontrar qué equipo ganó la copa en un año 
concreto. Todos los datos están listados hacia 
el final del programa y, seguidos por el 
Menú. Suele ser mejor poner los datos hacia 
el final del programa y dejar la parte de 
trabajo del programa al comienzo. 


El Menú 


PARA VER LA LISTA DE EQUIPOS TECLEA 1 
PARA VER LA LISTA DE ANOS TECLEA 2 


PARA INTRODUCIR EL NOMBRE DE UN EQUIPO TECLEA 3 
PARA INTRODUCIR UN AÑO TECLEA 4 

PARA FINALIZAR TECLEA 5 

TECLEA El NUMERO QUE HAS ESCOGIDO 

ENTONCES PRESIONA RETURN 


Llamando a las subrutinas 


120 ON C GOSUB 200 


La línea 120 en el programa controla la 
subrutina que usa la computadora. La letra C 
es la variable que contiene el número que 
tecleaste después de ver el menú. La 
computadora usa el número en C para decidir 
a que subrutina ir. Si C = 1 va a la primera 
subrutina listada en la línea 120, esto es, 
aquella que empieza en la línea 200. Si C = 2 


Líneas 10-130 
llaman a las subrutinas. 


imprimen 1 


Líneas 400-490 buscan en la matriz 
para encontrar un año para un equipo. 


Líneas 500-580 buscan en la matriz 
para encontrar un equipo para un año. 


Líneas 1000-1310 
leen en los datos. 


El Menú es la parte del 
programa que te dice lo que 
el programa puede hacer y 
cómo usarlo. En este 
programa escoges lo que 
quieres tecleando un número. 
El número se guarda en una 
variable C y la computadora 
usa este número para buscar 
la correcta subrutina para 
que realice el trabajo que tu 
quieres. 


se va a la segunda, esto es, línea 300. Si 
C = 3 entonces se va a la tercera, etc. O 
GOSUB es un comando BASIC muy útil pare 
hacer que la computadora vaya a diferentes 
subrutinas dependiendo de un test. Si tU des 
computadora no tiene el comando ON pue 
usar varias setencias. IF... THEN en vez 200 
ON GOSUEB, ej.: IF C = 1 THEN GOSUB 4%: 


ué sirven las variables 


e a 


| 410 GOSUB 2000: REM IMPRIMIR MENU 


120 ON C GOSUB 200, 300, 400, 500, 600 


JH 


130 GOTO 110 
200 REM SUBRUTINA PARA IMPRIMIR LA LISTA DE EQUIPOS 
210 CLS 

220 PRINT «LISTA DE EQUIPOS»: PRINT < 


230 FOR I=1 TO 10: PRINT EQUIPOS(I): NEXT | 
235 PRINT 


240 INPUT «PRESIONA RET URN PARA VER EL MENU»; X$ 


la PARA IMPRIMIR LA LISTA DE AÑOS 


para que funcione en Cc 


Dice a la computadora cuánto 
espacio ha de dejar para las 
matrices. 

Cuando ejercitas el programa la 
primera cosa que hace la 
computadora es ir a la subrutina 
en la línea 1000 para leer los 


datos. 
Despues va a la línea 2000 para 
rimir el menú en la pantalla. 


Esta le manda a la subrutina 
correcta para llevar a cabo el 
trabajo que hayas escogido en el 
menú. Después de la subrutina la 
computadora vuelve a la línea 130 
que la manda a la línea 110 para 
imprimir el menú otra vez. 


Subraya las palabras LISTA de 
EQUIPOS. 


Bucle para imprimir los nombres 


«e los equipos. Cada vez que el 


bucle se repite I crece en 1 y la 
computadora imprime el nombre 
siguiente en EQUIPO. 


Hace que la computadora espere a 
Jae presiones RETURN antes de ir 
E la línea siguiente (En el ORIC 
debes presionar una tecla). 


] Bucle para imprimir los años. 
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“computadoras Sinclair (Timex) ver página 46. 


400 REM SUBRUTINA PARA INTRODUCIR EL EQUIPO 


405 CLS 
410 INPUT «POR FAVOR, TECLEA EL NOMBRE DEL EQUIPO O TECLEA MENU (- El nombre del equipo o la 
PARA VER LA LISTA OTRA VEZ»; 2$ menú se almacena en Z$. E 


Si Z$ = MENU la 
415 IF 29=«MENU> THEN RETURN HF vuelve OS 150.7 desioail ¡ 


la línea 110 a imprimir el Menú. 


420 FOR |l=1 TO 10 rd e OS Z$ con cada 
a 1 n re en p 
425 1F Z$=EQUIPOS(I) THEN GOTO 440 a El LEE Ein | 
430 NEXT | a Z$ va a la línea 440. 


485 PRINT: PRINT «EQUIPO NO ENCONTRADO — POR FAVOR, PRUEBE | Esta línea es la salvaguardia por si 


: acaso cometes un error al escribi 

OTRA VEZ»: PRINT: GOTO 410 el iombrefde une quipo dl 
un nombre que no esté en la base 
de datos. 


440 PRINT 
445 PRINT Z$: PRINT 5 Escribe el nombre del equipo. 


Si usas un micro BBC ver 


la nota de la página 46. Bucle para hacer que la 


computadora busque detalles 
sobre tu equipo en la matriz. 1 es 
el número de la fila. El valor de 1 
se fija en el bucle de las líneas 


- 450 FOR J=1 TO 12 420-430 y es el subíndice (el 
455 IF M(L. J)=1: THEN PRINT «GANO LA COPA EN»; AÑO(J): PRINT número que indica su posición en 
460 IF MU. .)=2 THEN PRINT «FUE UN FINALISTA EN»; AÑO(): PRINT o cda A 


465 NEXT J columna, cada vez que se repite el 

CS bucle la computadora busca en la 
siguiente columna a lo largo de la 
fila L 


_—_—_—— Lo mismo que la línea 240. 


Vuelta a la línea 
130. 


“Igual que la línea 410 pero esta 
: vez tu año se guarda en 23. 


] DA “Veo PRINT: PRINT «EN»; 28: PRINT 
1] EN h » * 2 J=1 10 10 Sh bucle o la misma 
mn 1 114 THEN PRINT EQUIPOS (IV « a anera que las líneas 450-460, Est 
RNA , !)=1 THEN PRINT EQUIPOS(U); «GANO LA COPA yez el número de la columna fija d 
l SE | subíndice del año en AÑO y el 
po a número de la fila cambia cada vez 


que se repite el bucle. 


UT «PRESIONA RETURN PARA EL MENU»; X$ 
TURN 


| 0 REM SUBRUTINA PARA FINALIZAR EL PROGRAMA E 
1610 INPUT «FIN=SEGURO (Y/N)»; X$ oo bas nes para estar seguro 


e que quieres acabar, Si teclez 

2 1F XS<>«Y» THEN RETURN ELSE END ii 
computadora que deje de ejecutar 
el programa. Si tecleas alguna otra 
Cosa vuelve a la línea 130. La 
palabra ELSE es una manera útil de 
añadir más condiciones a sentencias 
IF... THEN. Para saber más sobre 
esto mira a la vuelta de la página. 


71000: FOR l=1 TO 12: READ AÑO(I): NEXT | Faust para intuoduat ls datos 
1010 DATA 1930, 1934, 1938, 1950 entro del AÑO. 
1020 DATA 1954, 1958, 1962, 1966 


030 DATA 1970, 1974, 1978, 1982 
100 FOR I=1- TO 10: READ EQUIPOS()): NEXT | “HH uote para introducir datos en 
1110 DATA URUGUAY, ARGENTINA EQUIPOS. 

1115 DATA ITALIA, CHECOSLOVAQUIA, HUNGRIA 
1120 DATA ALEMANIA DEL OESTE, BRASIL 

125 DATA SUECIA, INGLATERRA, HOLANDA 


00 FOR |=1 TO 10: FOR J=1 TO 12 ; ucles de anidamiento para 
introducir información 
00 o 


210-NEXT J: NEXT | 
AA RD ER 


1220 DATA 1.0.0,1,0.0.0.0.0,0,0,0 E 
1230 DATA 2.0.0.0.0.0.0.0.0.0.1.0 sta es la información para M 
1240 DATA 0,1:1.0.0.0.0.0.2.0,0,1 
1250 DATA-0,2,0,0.0,0,2.0,0,0.0,0 
1260 DATA 0,0,2,0,2.0.0,0.0.0,0,0 
1270 DATA 0,0,0,0,1,0,0,2,0,1,0,2 
| 1280 DATA 0,0,0.0,0,1,1.0:1.0.0,0 
[11290 DATA 0,0,0.0.0.20,0.0.0.0,0 
| 2800 DATA 0.0.0,0.0.0.0,1.0.0.0.0 

1310. DATA 0,0,0.0,0,0.0.0.0.2.2.0 


7 MENU» Deja como 15 espacios a, 


po O O centrar la palabra Menú pora 
[2030 PAINT e ñ : : NES ds E encima de la lista de Opciones, 
2040 FOR l=11 06 PRINT: NEXT. 1 de ! 98 o para dejar 6 líneas en 
E , co. 
2050 PRINT «PARA VER LA LISTA DE EQUIPOS TECLEA T» 


2060 PRINT 

2070 PRINT «PARA VER LA LISTA DE AÑOS TECLEA 2» 

12080 PRINT 

2090 PRINT «PARA INTRODUCIR EL NOMBRE DE UN EQUIPO TECLEA 3» 
2100 PRINT 

2110 PRINT «PARA INTRODUCIR UN AÑO TECLEA 4» 

2120 PRINT 

2130 PRINT<PARA FINALIZAR TECLEA 5» 


2140 PRINT 

2150 PRINT «TECLEA EL NUMERO DE TU OPCION» 

2160 INPUT «ENTONCES PRESIONA RETURN»; C 
El número de tu opción se 

“JH alimacena en C. 

| 2170 IF C<1 0 C>5 THEN PRINT <POR FAVOR, INTRODUCE UN NUMERO EN- 

j TRE 1 Y 5»: GOTO 2150 


2180 RETURN 


Esta línea es una salvaguardia en 
caso de que teclees un número 
que no esté entre 1 y 5. Para más 
sobre OR ver abajo. 


Transformación de la base de datos 


matrices. 


Base de datos de Revistas 


A se usar una base de datos de revistas para ver en que 

eS IES | poa O qué temas fueron cubiertos en sE 
a. Esto podría ahorrarte ho: > 

o buscando un artículo concr oras ojeando revistas 

eto. Necesitarás un. j 
llamada SEMANAS a matriz 
; z y otra llamada TE a 
matriz principal. MAS además de la 


Base de datos sobre vida salvaje 


PAJAROS 


Una base de datos sobre pájaros o plantas podría mostrar 
cuándo o dónde los viste. Necesitarás una matriz para los 
nombres de pájaros o plantas y otra para el lugar o época 
del año en que los viste. Organizaciones para la vida salvaje 
están recopilando bases de datos como esta para tener en 
cuenta la distribución de las diferentes especies. 


Esta base de datos te pe 
contienen una vitamina C 


calorías hay € : Ea 
contienen más de un cierto núme 


Gráficos instantáneos 


s rellena con redes de líneas cruzadas. Las 
Le ica de computadoras para ayudar a que las | 
nales o para darles una imagen de era espacial. 

El programa usa los comandos gráficos PLOT X, Y E a pio 
ad para dibujar una línea. Las coordenadas xe Y se miden des de orde de la 
pantalla. Tendrás que transformar estas instrucciones para tu A hs ora y añadir 
los comandos de gráficos especiales que pueda necesitar de E a a 

Hay dos modos de escribir programas de gráficos. Puedes decir E Ea : 
computadora que calcule y dibuje todos los puntos a medida que E a y construir 
el dibujo gradualmente en la pantalla, O puedes hacer que haga todos los cálculos 
antes, que los guarde en las matrices y que dibue todo el gráfico prácticamente 
instantáneamente. El programa siguiente usa el método de gráficas instantáneas. 


Este programa dibuja 
redes se usan frecuentemente e 
formas parezcan más tridimensio 


Puedes hacer todo tipo de formas cambiando colores. Hay algunas ideas para adaptar el 
los datos en el programa. También puedes programa al final del listado. 
dibujar las líneas de las redes en diferentes 


> 
Líneas 100-190 Lineas 200-360 


Líneas 400-550 


Hay tres partes principales en el programa ellas. La se Í 
: E pe : E gunda parte (líneas 200-360 
La primera parte (líneas 100-190) dibuja las calcula las coordenadas po la red y le 


esquinas de la red y dibuja las líneas entre tercera parte (líneas 400-550) dibuja las líneas. 


El programa usa 4 
eE id o Computadora datos para estas matrices al 
guardan las coordenadas X e Y para las Principio del programa CX(1) y CY(1) 


94 “iatro esquinas de la red. Tú le das a 1 contienen las coordenadas para la primera 
ER esquina de la red, CX(2) y CY(2) para la 
” En algunas computadoras como el S segunda y así sucesivamente. 


Estos guardan las 
Coordenadas de las 
d 


LX y LY son las matrices para almacenar las 
coordenadas X e Y para las líneas de la red. 
Son matrices bidimensionales en las que cada 
matriz tiene cuatro filas. El número de 
columnas se fija en el programa dependiendo 


del número de líneas de red j 

que quieras. 
Cada fila almacena las coordenadas de las 
líneas de un lado de la red así la fila 1 
equivale al lado 1 etc. La computadora guarda 


los datos en LX y LY a medida que las calcula 
en el programa. 


El programa En 
eba 20 p d 
100 INPUT «¿CUANTAS LINEAS DE RED QUIERES?» N) com gráficas de alta resolución y 


0x0, 0H) 5 para las de baja resolución. 
110 DIM ; 

: Le di 1 S 
ve o o 1 1, iz al comprada cómo 
120 CLS 

130 REM DIBUJA LOS LADOS DE LA RED 


135 REM INSERTA LA INSTRUCCION DEL MODO DE 
GRAFICOS DE TU COMPUTADORA 


Los números 
dados aquí son 
para la red de la 
izquierda en la 
página opuesta, 


Bucle para introducir los datos 
para las esquinas en CX y CY. 
Cada vez que se repite el bucle 


140 FOR l=1 TO 4 cambia estos — los dos números siguientes en la 
números para línea 160 son introducidos en CX 
e A e 20 hacer redes de y CY. 


distintas forma Estas son las coordenadas para 
las esquinas. Puede que 


necesites cambiar estos números 


160 DATA 100,50,700,50,500,700,150,500 . ———————————————- para que quepan en tu pantalla. 
170 PLOT CX(4), CY(4) 


— Dibuja la esquina 4 usando los 
números almacenados en CX(4) 
y CY(4). 


Usa el comando 
de tu computadora 
para PLOT y DRAW 


185 DRAW CX(1), CY(1) 
190 NEXT | 


EL LISTADO CONTINUA A LA VUELTA DE LA PAGINA 


Bucle para dibujar los lados de la 
red. 


180 FOR l=1 TO 4 


Dibujando las esquinas 


a vez que el bucle se 


dibujar los lados de la red la la esquina 1. Cad 


E . incrementa en uno 
din putadora dibuja primero la esquina 4 repite la variable 1 OE una línea a la 
lín “a 170). Entonces el bucle de las y la computadofa de 


190 hace que dibuje una línea a 


200 REM CALCULA LAS COORDENADAS PARA LAS LINEAS DE LA RED Jj tha parte siguiente del PIOgTar 
a 


en cuatro bucles para 
coordenadas de las llar las 
red. Puedes Ver como son E 
dibujos de abajo. Os 


Recuerda, CX(1) y CX(2) son las 
coordenadas X para los esquemas 
1 y 2, y CY(1) y CY(2) son las 
coordenadas Y. 


N es el número de líneas de red 


210 FOR l=1 TON “Y que escoges. 


Calcula las coordenadas X 
las líneas de la red a lo ] cl 


220 LET LX(1, 1) =CX(1)-+(CX(2) —CX(1)):UN- “Y———— lado 1 y las almacena LES 
y a 


1, columnas l a N. 


230 LET LY(1, 1) =CY(1)-+(CY(2)-CY(1))»/N- J—————————————— Calcula las coordenadas Y para 


el lado 1 y las guarda en Ly fila 1 
columnas la N. 


240 NEXT | 
LISTADO CONTINUADO ABAJO 


Este es el número de 
puntos X a lo largo 
del lado 1. 


Cada bucle calcula las coordenadas para las es 5, esto da 1/5 de la longitud del lado 1. 
líneas de la red a lo largo de un lado de la Entonces suma este número a CX(1) y 

red. Por ejemplo, las líneas 210-240 calculan almacena el resultado en LX(1,1). La segunda 
las coordenadas para el lado 1. En la línea vez que efectúa el bucle I = 2, así que 

220 la computadora resta CX(1) de CX(2). multiplica por 2/5 y almacena la respuesta en 
Esto le da el número de puntos X a lo largo LX(1,2). Hace esto para todos los valores de 1 
del lado 1. La primera vez que efectúa el desde 1 hasta N para encontrar todas las 
bucle multiplica este número por 1/N (N es el coordenadas X para las líneas de red a lo 
número de líneas de red que escoges). Si N largo de lado 1. La línea 230 usa el mismo 


método para encontrar las coordenadas Me 


Bucle para calcular las 
coordenadas para el lado 3. Para 
almacenarlas en el mismo orden 
como para el lado 1 (esto €5 de 
izquierda a derecha) la 
computadora tiene que hacer se 
sumas en orden contrario. Resta ze 
do: esquina 4 de la esquina 3: entonC 
1 suma el resultado a la esquina *: 


250 FOR I=1 TO N 
260 LX(3, 1)=CX(4)+(CX(3)0X(4))+/N 
270 LET LB, 1) =CY(4)+(CY(3)0Y(4))+/N 
280 NEXT | 

290 FOR |=1 TO N 

300 LET LX(2, 1)=CX(2)+(CX(3)0X(2))*/N 
| 310 LET LY(Q, 1)=CY(2)+(CY(3)0Y(2))+1/N 
> 320 NEXT | 


Prueba a cambiar estas 
líneas para que se 
parezca a los otros 
y mira qué ocurre. 


bucles 


Bucle para calcular las 
coordenadas para el lado 2. 


EL LISTADO CONTINUA EN LA PAGINA OPUESTA 


gp FOR 1 TO N 
ser, 1)=0Xt1)+(CK()CK(1):UN 


ser, DOM) +(CY) CV) N 


340 


350 


230 NEXT 
sn REN DIBUJA LAS LINEAS DE LA RED 


Esta línea fija | 
da el valo Ja una variable llamada fila y le 


r 1. Entonces la com 
la subrutina en la línea a A 


tin 500. Después de la 
sub , 
0 LE FILA=1: GOSUB 500 5 rutina vuelve a la línea 420 y cambia 


400 LET FILA=2: GOSUB 500 


a a 2, entonces vue 
z. 


lv : 
ve: € a la subrutina otra 


Esto detiene el Programa d 
e O A espués de que la 


500 REM SUBRUTINA 
510 FOR I=1 TO N 


subrutina se ha efectuado dos veces. 


FILA y 1 son los subíndices para LX y LY. 
Le dicen a la computadora en qué 
compartimento buscar para encontrar las 


520 PLOT LX(FILA, 1), LY(FILA, 1) Y Coordenadas. X e Y de cada línea. FILA es 


530 DRAW UX(FILA+2, 1), LY(FILA+2, 1) 


540 NEXT | 


el número de fila y 1 la columna. Fila 1 
contiene las coordenadas para el lado 1, 
fila 2 para el lado 2, etc. 


Vuelta a la línea 420 la primera vez que 
550 RETURN  _ 00 pasa por la subrutina y la 430 la segunda 


Dibujo de las líneas de red 


La primera vez que efectúa la subrutina FILA 
= 1, por lo que en la línea 520 la 

computadora dibuja un punto en el lado 1. En 
la línea 530 suma 2 a fila y dibuja una línea al 


Ideas para alterar el programa 


1. Para hacer redes de diferentes formas, a 
que te guste primero en un papel. peras: qu ae 
las coordenadas para la esquina 1, el segun en 

dos esquinas iguales obtendrás un triángulo. | da 
lados se crucen, como se muestra en el dibujo 


2. Puedes usar INPUT con un bucle para hace 


vez. 


», | 
Lado 4 8 AS die 2 
NAM, 


úa la 
lado 3. La segunda vez que efectúa 
subrutina Fila = 2 por lo que dibuja puntos en 
el lado 2 y dibuja líneas al lado 4. 


calcula las coordenadas para una forma 


tos en la línea 160 son 
o cana 2, etc. Si haces 
j e los 
a ver si puedes hacer qu 
la derecha en la página 26. 


r que la computadora te pregunte por 


í iguientes. 
los datos. Reemplaza las líneas 140-160 por las líneas sigui 


140 FOR l=1 TO 4 


NA»; | 
150 PRINT «CUALES SON LAS COORDENADAS PARA LA ESQUÍ 


155 INPUT CX(1), CY(I) 
160 NEXT | 


3. Para hacer las líneas de red de colores, A 
Computadora antes del GOSUB en las líneas 


introduce € 


lor de tu 
dos puntos 


1 comando de co. 
0 y 420. Recuerda poner 


Para separar el comando de color del GOSUB. 


E 
e 


Programas para ordenar datos 


Algunas veces necesitas ordenar datos en orden alfabético o numérico, Por ejemplo, 
para hacer un índice de una revista, o analizar datos recogidos por ahí sobre el 
tiempo o vistas o investigaciones sobre la historia local. Las listas cortas son fáciles de 
ordenar a mano, pero con un gran número de datos una computadora es mucho más 
rápida y precisa. 

Los programas especiales para ordenar datos se llaman «sorts». Hay muchos 
programas diferentes para ordenar ya escritos un BASIC. Los puedes encontrar en 
revistas. Los diferentes programas usan técnicas de programación diferentes y se 
utilizan para trabajos diferentes. 

En las páginas siguientes hay dos tipos diferentes de programas de ordenación. 
Uno se llama una «ordenación de burbuja» (puedes encontrar por qué, abajo) y el otro 
es una ordenación shell (nombrado así por la persona que lo escribió). Una ordenación 
de burbujas es de las más lentas y sólo es útil para pequeñas cantidades de datos. Una 
ordenación shell es mucho más rápida. En la página 35 hay algunas líneas que puedes 
añadir a los programas para compararlos y ver lo rápida que es tu computadora. 


Para ordenar estos números 
sin una computadora tu 
probablemente compararías 
cada número con todos los 
demás e ¡rías variando el 
orden. 


Una computadora usa un 
método similar pero es 
mucho más rápido y 
metódico. 


la] 


Ed 
A 


Ordenación de burbuja E 
En una ordenación de burbuja la computadora comienza al principio de la lista desordenada y 
compara los dos primeros elementos. Si están mal ordenados los da la vuelta y compara los 


dos elementos siguientes. Continúa así por toda la lista de modo que los números mayores van 
moviéndose gradualmente al final de la lista. 


El programa siguiente es una ordenación de burbuja por números. A la vuelta de la página 
hay otra versión de programa por ordenar palabras. 


100 REM ORDENACION DE BURBUJA PARA NUMEROS Fija una matriz llamada N con T 


110 INPUT «¿CUANTOS NUMEROS A ORDENAR?»: T compartimentos. T es el número 
120 DIM N(T) _ií——___ total de números que quieres que 


se ordenen. 
130 FOR l=1 TO T 
140 PRINT «NUMERO»; | 
150 INPUT N(l) 
160 NEXT | 


In) En» Nc] 
pal pl Y E 
ESAY7 M3 pY5 A) 
Fija otra variable a cds 
ud try 11 el to 
O A A pza leas cuenta delos 


programa. 


175 LET X=0 A X es un contador. 


Te pregunta por los números a 
ordenar y los almacena en la 
matriz. 


E 


En este ejemplo hay 5 
números. 


30 


HS 


180 FOR C=1T0 T=1 FT Bucle para efectuar T-1 veces, 


Este es el ní 


requerido p veces 
p LET s1=N(C): LET 52=N(C+1) IA pareja en PEN dee cada 
19 a variables 5] 


y S2 son Para 
Par de números 


que > 
introducen en Ss y S a 


Compara los dos números. Si sl 
es menor que S2 están en el 
orden correcto así que la línea 
250 manda a la Computadora al 
principio del bucle a seleccionar 
el siguiente par de números. Si 
S1 es mayor que $2 la 
computadora continúa con las 
líneas siguientes que cambiaran 


la posición de estos números en 
la matriz. 


Na 20] Yo e o] qua |(A)| 


JAEN 


Cada vez que el bucle 
se repite el número 

se moverá un lugar a 
la derecha hasta que 
esté en su posición 
correcta. 


210 LET TEMP=N(C) 


El número N(C) es introducido 
en una variable llamada TEMP. 


El número en N(C + 1) es 
movido a la posición N(C) en la 
matriz. 


220 LET N(C)=M(C+1) 


El número en TEMP es puesto en 


230 LET N(C+1)=TEMP KT la posición N(C + 1). 


Añade l a X para indicar que se 
ha producido un cambio. 

La segunda vez que 
se efectúa el bucle 


240 LET X=X+ C = 2, así que 
N(C) = N(2) y 


= 3). 
A e A 


Manda a la computadora de 
“vuelta a comparar el siguiente 
par de números. Cuando ha ? 
repetido el bucle T — 1 veces la 
computadora ha comparado 
todos los números S una vez y 
continúa con la línea 260. 


si X es más de 0 SS ha efectuado 
io así que la 
o resta 1 de T a 
ya hay un número en su En 
correcta. Entonces a ye 
principio del bucle. Si de 
números están en su posic: E 
correcta y la computadora 


la línea 270. 
280 IF X>0 THEN LET T=T=1: GOTO 175 dE 


tal de 
270 PRINT LOS NUMEROS ORDENADOS SON MAX es el pel 
2 FOR l=1 TO MAX VIF...THEN si A 
290 PRINT N() Repite e 


pones el GOTO de la 
línea 260 en una 
nueva línea. 
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Ordenación de burbuja para palabras 


El programa siguiente es una ordenación de burbuja para palabras. Es igual que la 
ordenación de burbuja de números excepto que las variables para almacenar los 
datos (N, S1, S2 y TEMP) son variables de cadena. * 

La computadora usa el mismo método para comparar letras como para números. 
Dentro de la computadora las letras y símbolos están representados por números, así 
que cuando le das a la computadora caracteres a comparar, compara sus números de 
código. Para comparar dos palabras, comprueba la primera letra de cada una y si son 
iguales compara la segunda y después la tercera y así sucesivamente. Puedes 
introducir números así como letras en las variables de cadena, así que puedes usar la 
ordenación de burbuja para información que contenga palabras y números como 
direcciones. 


¿CUANTOS ELEMENTOS A ORDENAR? 4 
ELEMENTO 1 

KELLER MARY 12 PANSY PLACE 
ELEMENTO 2 

SMITH JOHN QUEEN STREET 
ELEMENTO 3 

JONES PETER 3356 WESTSIDE. 


¿CUANTOS ELEMENTOS A ORDENAR? 4 
ELEMENTO 1 

UNIDADES DE DISCO 34 16 82 93 
ELEMENTO 2 

CODIGO DE MAQUINA 55 72 85 
ELEMENTO 3 

SONIDO 32 


ELEMENTO 4 

FLAK KANE 34 RING ROAD 
LA LISTA ORDENADA ES 
FLAK JANE 34 RING ROAD 


ELEMENTO 4 

GRAFICOS 8 23 45 

LA LISTA ORDENADA ES. 
UNIDADES DE DISCO 34 76 82 93 


GRAFICAS:8 23 45 JONES PETER 3356 WESTSIDE 

CODIGO DE MAQUINA 55 72 85 KELLER MARY R. PANSY PLACE 

SONIDO 32 SMITH JOHN 12 QUEEN STREET 
En este ejemplo la computadora está de las computadoras, una coma es un 
almacenando elementos para un índice, y a la separador o delimitador entre los diferentes 
derecha direcciones. Los elementos fueron elementos de información. Si quieres usar 
tecleados sin comas ya que para la mayoría comas en cadenas, pon la cadena entre 

comillas. 


El programa 
100 REM ORDENACION DE BURBUJA PARA PALABRAS 


110 INPUT «¿CUANTOS ELEMENTOS A ORDENAR?»: T o O N$ con 
120 DIM N$(T) LO EA 


130 FOR l=1 10 1 Prueba a introducir 

140 PRINT «ELEMENTO», | elementos due empiecen 
Cc 

150 INPUT NS(1) on un símbolo, un 


número, una letra 


160 NEXT | mayúscula y una letra 

170 LET MAX=T minúscula y mira el orden 
en t d S 

175 LET X=0 na u computadora lo 


180 FOR C=1 TO T-1 
190 LET S1$=N$(C): LET 828=8/6 +1) _—z— Los dos primeros elementos se 
200 IF S1$<=82$ THEN GOTO 250 A introducen en S1$ y S25. 

210 LET TEMP$=NS$(C) Compara S1$ y S2$. 


220 LET NS(C)=N$(C+1) Cambia las posiciones de los 


1230 LET N$(C+1)=TEMP$ dos primeros elementos N$. 


40 LET X=X+1 


Si X > 0 resta 1 del total y 
250 NEXT C vuelve al principio del bucle 
260 IF X>0 THEN LET T=T=1: GOTO 175 para comprobar la lista otra veZ. 


270 PRINT «LA LISTA ORDENADA ES» 
(an FOR I=1 TO MAX 

290 PRINT NS(1) 

300 NEXT | 


Repite el IF...THEN si 
pones el GOTO de la línea 
260 en una nueva línea. 


* Para computadoras Sinclair (Timex) cambia la lín i la 
cadena más larga que quieras introducir. 28 ASA o donde Nes la longitud de 


: muchos elemento. e 
Si quieres ordenar mentos, la ordenación de burbuj 
- . minuto para ordenar cincuenta elementos en a] Ja es muy lenta. Puede ¡ 
un : invertir 


cas] Se » gunas 
¡quiente 5 una ordenación Shell para números. Es práctic Computadoras. El program 
ión de burbuja. amente tres veces más rápida 
a que la 


NN ra ON es divide la lista de núme 
compara tod0s os de una mitad con los de la otra mit An a ordenar en dos y 
s y hace unas comparaciones moviendo los números [tayorés h - Entonces divide la lista en 
s haci 


Ja misma técnica de movimiento que en la ordenación de burbuja a arriba en la lista usando 


a 
o 
258] 
aya PS Este es un programa 
A yz b : 
243 1O' astante complicado. 


Á 
YA ] A la vuelta de la hoja 


(Mirza y E 
C A) 25 hay algunas líneas 


que puedes insertar 
para ayudarte a 
comprender como 
trabaja. 


El programa 


100 REM ORDENACION SHELL PARA NUMEROS 


110 INPUT «¿CUANTOS NUMEROS A Estas líneas son como en la ordenación 
ORDENAR?»; T de burbuja. T es el número total de 

números a ordenar y las líneas 120 a 160 

120 DIM N(T) te preguntan por los números y los 

130 FOR l=1 TO T almacenan en la matriz N. 

140 PRINT «NUMERO»; | 

150. INPUT N(1) Fija la variable C igual al número total 
de elementos. 

160 NEXT | 
Divide C en dos para dar el número de 


MO LETC=T elementos en la primera mitad de la 
lista. INT hace que la computadora 


1 = 
o LA ] descarte cualquier número detrás de la 
coma decimal para hacer de Cun 
número entero. 
El programa divide repetidamente Cen 


190 FC= 
0 THEN GOTO 330 Y Eos y cando C = 0, la computadora va 


a la línea 330 a imprimir la lista 
ordenada. 


200 LET D=T=C D es el número de elementos en la 


KÉ—_——_——_—— segunda parte de la lista. 


22 EN z ara fijar los 
0 LETF=E Las variables FyG Ps donde se 


a indices de N a la m 
a cio todos los números. 


ELL 
ISTADO CONTINUA A LA VUELTA DE LA PAGINA 


33 


y 240 IF N(F)<=N(G) THEN GOTO 300 ] 7 Si el múmero en N(E) es a 
que el número en N(G) la 


5 computadora va a la línea 300, 
E 5: > suma uno a E y vuelve para 
4 


7 ñ - ld E Subíndices 
(e III noes 
l PA CASAN 
AL==A 
MS ( Doy NS 


UN o 


En este ejemplo hay diez 
números a ordenar. La primera 
vez que se realiza el programa 

= 5 la computadora compara 
los números en los subíndices 7 
a 5 con los de 6 a 10. 


250 LET TEMP=M(F) 
260 LET N(F)=N(G) 


Si N(F) es mayor que N(G) la 
270 LET N(G)=TEMP 


computadora los cambia. 


280 LET F=F=C Comprueba el valor de F 
entonces añade uno al contador E 
290 IF F>0 THEN GOTO 230 — para cambiar los valores de F y G 


E ESRA en las líneas 220 y 230. 
Se asegura de que E está dentro 
310 IF E>D THEN GOTO 180 ?-_áíihh_—— odo lea SS 
320 GOTO 220 así, vuelve a la línea 180 a dividir 


la lista otra vez. 
330 PRINT «LA LISTA ORDENADA ES» 
Si E es menor que D, la 


340 FOR |=1 TO 1 computadora va a la línea 220 a 
fijar los subíndices para el 
(es AN siguiente par de números. 
360 NEXT | 


Imprime la lista ordenada. 


¿Puedes Insertar nuévas 
líneas para que la 
computadora, una vez haya 
ordenado una lista te diga 
cuántas comparaciones y 
cambios fueron hechos? 
(Respuesta página 48). 
Entonces podrías probar el 
programa con listas 


diferentes y ver cómo 
_varían, 


ara tranSformar este Programa para que 
ordene cadenas, cambia la variable N por 
N$ (en las líneas 120, 150, 240-270 y 350), 
cambia TEMP por TEMP$ (líneas 250 y 270) 
y reescribe las sentencias PRINT. Si tienes 
una computadora Sinclair, cambia la línea 
120 por DIM N$ (T, N) donde N es la 
longitud de la cadena más larga que deseas 
introducir. 


¿Cómo funciona? 


p ara a Ea LSO TO funciona el Shell sort puedes añadir estas líneas 
adici ores de las variables así que S nú á 
o ón que puedes ver qué números está 


e Pal «E=» Fo G=» G |— F y G son los subíndices de 


los números a comparar. 
237 PRINT «COMPARAR N(<; F: ») N(«; G: »)» 
» y 


y 
245 PRINT «CAMBIAR N(<; F; ») Y N(«; G; e 
274 PRINT «LISTA=>»; Te dice los subíndices de 
AISIOR ASIA NON los números a cambiar. 
276 PRINT N(J) <->»; 
277 NEXT J 
278 PRINT ; 

Im lord 

279 INPUT «PRESIONA RETURN PARA CONTINUAR»: 25 e a 


Comparación de los sistemas de ordenación 


Si comparaste las ordenaciones de burbuja y shell con sólo unos pocos números, puede que no 
hayas notado lo mucho más rápido que es el Shell sort. Para comparar los dos sistemas de 
ordenación podrías hacer que los dos generaran una lista de números aleatorios, y entonces, 
contar cuánto tiempo invierte cada programa en ordenarlos. A mayor lista de números, la 
diferencia de tiempo entre los dos sistemas de ordenación crece. A la vuelta de la página hay 
algunos programas para dibujar gráficos que muestren las diferencias entre los dos sistemas de 
ordenación. 


Generando los números 


Podrías cambiar este 
número por cualquier 
otro que quieras. 


140 LET N(l)=INT (RND(1)=200+1) 
150 PRINT N() A 


165 INPUT «PREPARA TU RELOJ Y PRESIONA RETURN 
PARA COMENZAR LA ORDENACION»; Z$ 


Para hacer que los programas generen su La línea 140 genera números aleatorios entre 
propia lista de números a ordenar necesitas 1 y 200 y los almacena en la matriz N. La línea 
reemplazar las líneas 140 y 150 en ambos 150 imprime los números en la pantalla y la 
programas e insertar una nueva línea 165 para línea 165 hace que el programa espere hasta 
que puedas controlar cuando empieza la que presiones RETURN. 

ordenación. 


Test de ejecución 

] ] . La primera vez para ver cuánto 
Para comprobar cada programa debes ejecutarlo varias veces 
tarda en e, digamos, 10 números, después 20, 30, 40, etc. Las diferentes marcas de 
computadora ordenará las listas a diferentes velocidades y algunas, como el ZX8] tienen un 
modo rápido y lento. Las siguientes son las velocidades en Apple II. 


Test de sistemas de ordenación 


N.? de números 
ordenados 


Dibujo de gráficos A | 
Los resultados de una computadora son mucho más fáciles de leer y LLE DA si 
los presentas de una manera interesante, usando tanto a como pa E E bajo 
hay un programa de un diagrama de barras para mostrar E CN en re las 
ordenaciones de burbuja y shell. En la página opuesta puedes encon pS 
transformar el programa de diagrama de barras para que LN una cl se ineal. 
Los programas son bastante flexibles y podrías adaptarlos ácilment pu a i 
representar informaciones diferentes. También los podrías mejorar a oe 
comando de color de tu computadora para que dibujara las gráficas a diferentes 


colores. 


Gráfica lineal 


Diagrama de barras 


AA 


Estas son las exposiciones en pantalla para números ordenados está a lo largo del eje X. 
los dos programas de gráficos. Ambos Si tu computadora puede imprimir texto y 
gráficos comparan los tiempos invertidos por posiciones pixel puedes añadir indicaciones 
los dos sistemas de ordenación para ordenar para hacer los gráficos más claros. Puedes 
10, 20, 30, 40 y 50 números. El tiempo se encontrar cómo hacer esto para el BBC en la 
representa en el eje de la Y y el número de pagina opuesta. 


Programa de Diagrama de Barras 


Fija las matrices B y S para 
100 DIM B(5): DIM S(5) qEAAmq424+qÓ -zzAAKÁ almacenar los datos para las 
110 LET N=0 ordenaciones de Burbuja y Shell. 


120 FOR 1=10 TO 50 STEP 10 


130 LET N=N+1 

e Bucle para introducir datos en 
150 INPUT «¿CUANTOS SEGUNDOS INVIRTIO LA ORDENACIÓN DE Ne co: 
BURBUJA?»; B(N) para fijar los subíndices para las 
160 INPUT «¿Y LA ORDENACIÓN SHELL?»; S(N) matrices. 

170 NEXT | 


180 INPUT «¿CUANTAS POSICIONES DE DIBUJO HACIA ARRIBA DE TU 
PANTALLA?»; H 

190 INPUT «¿Y CUANTOS A LO LARGO?»; W 

200 REM DA EL COMANDO DE MODO DE GRAFICOS SI ES 
NECESARIO 


Los números para PLOT y DRAW se 
miden desde el borde de la pantalla. 
Si tu computadora necesita 

coordenadas que miden desde el 
último punto dibujado, ver página 47 
para como cambiar el programa. 


Nota como la variable de 
bucle | también se usa 
para contar los números. 


Dibuja los ejes a un pixel del borde 
de la paritalla. H y W son la altura y 
anchura de la pantalla. 


210 REM DIBUJA GRAFICOS 


Los nú jan 1 
220 PLOT 1, H: DIBUJA 1, 1: DIBUJA W, 1 lar. e E go de 
230 REM DIBUJA GRAFICOS ; los ejes X e Y. X es tres cuartas del 


ancho dividiendo por 5 veces el 


240 LET X=(W:0.75)/5 número de mediciones para cada 
] ión. Y tres 
250 LET Y=(H»0.75)//B(5) cuartas de la altura dividido por el 


tiempo más largo, esto es B(5). 
EL LISTADO CONTINUA EN LA PAGINA OPUESTA 


A id TA 


Inicia un bucle para dibujar 1 

La variable del bucle 1 ap 
mediciones y cada vez que el bucle se 
repite la computadora dibuja una barra 
para cada sistema de ordenación. 


¿Puedes cambiar el 
programa de diagrama de 
barras para que dibuje 
barras más gruesas? 
(Respuesta página 48). 


260 FOR I=1 10 5 


Dibuja un punto 1 + X a lo largo y 1 

970 PLOT INT (1+X), 1 pixel hacia arriba. La primera vez que 
se efectúa el bucle 1 y es 1 y X es valor 
para la escala a lo largo del eje X. 


Dibuja una línea a B(I) * Y. La primera 
280 DRAW INT (1=X), INT (80991) vez que se efectúa el bucle les 1 así 

que B(l) es el tiempo invertido para 10 

números e Y es el valor para la escala 


a lo largo del eje Y. 


Para el micro BBC 
cambia el número 
por — 10. 


Dibuja un punto 1 * X — 4 puntos a lo 
largo, esto es, 4 puntos a la izquierda 
de la barra es la ordenación de 
burbuja. 


290 PLOF INT (l*X=4), 1 


300 DRAW INT (lX=4), INT (S(I)=Y) Dibuja una línea a S() + Y. 


310 NEXT | 


Vuelve al principio del bucle a dibujar 
el siguiente par de barras. 


Si tu computadora puede imprimir texto y 
posiciones de pixels puedes añadir estas 
líneas para nombrar los gráficos. Por ejemplo, 
para hacer esto en el micro BBC necesitarías 
las líneas dadas abajo. 


305 VDU 5: MOVE (I=X), INT(B(I)=Y)+50: PRINT «B» 
308 VDU 5: MOVE (1=X)—70, INT (S(1)=Y)+50: PRINT «S» 


Programa de gráfica lineal 


Para una gráfica lineal necesitas imprimir el primer punto del gráfico y, entonces, 
dibujar una línea a cada punto a lo largo de la gráfica. Para hacer esto necesitas bucles 
separados para cada sistema de ordenación. Para transformar el programa de 
diagrama de barras para que haga una gráfica lineal reemplaza las líneas 270 en 


adelante por las siguientes líneas. Diénareprmér punto de E 


ordenación de burbuja X pixels a 
DAMA A a os 
arriba. 
Bucle para dibujar la gráfica para 
la ordenación de burbuja. Cada 


290 DRAW INT(N=X), INT(B(N)=Y) vez que el bucle se repite, N 
crece 1 y la computadora dibuja 
una línea al siguiente punto a lo 


300 NEXT N largo de la gráfica. 


Dibuja el primer punto para la 
310 PLOT INT(X), INT (S(1)=Y) Y Shi sort X pixels a lo largo y 


S(1) * Y pixels hacia arriba. 


280 FOR N=2 TO 5 


320 FOR N=2 TO 5 


Bucle ds dibujar la gráfica para 


330 DRAW INT (N=X), INT(S(N)=Y) la She 


sort. 


340 NEXT N 
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Más manejo de cadenas 


El programa que hay en las próximas páginas hace que la computadora aparente 
tener una conversación contigo. Por supuesto, la computadora sólo es tan inteligente 
como el programa que le introduzcas y todas las palabras o frases de sus respuestas 
están almacenadas en matrices de cadena en el programa*. 

La principal labor del programa es hacer que la computadora escoja las palabras 
correctas para contestarte. Contiene algunas rutinas BASIC de manejo de cadenas 
que hacen que sus respuestas parezcan, a veces, casi «inteligentes». El éxito de este 
tipo de programa reside no sólo en la estructura del programa, sino. también en las 
palabras o frases que introduces en él. Podrían probar a cambiar el vocabulario de la 
computadora para hacer que hablara de diferentes temas, o hacer sus respuestas más 
amistosas... o antipáticas. 


Ejecuciones ejemplo 


HOLA, ¿COMO TE LLAMAS? JUDY ¿DE QUE QUIERES HABLAR? 
HABLAME, JUDY HABLAME DEL TIEMPO, JUDY 

HOLA COMPUTADORA ESTA LLOVIENDO 

¿QUE PIENSAS SOBRE LAS NOTICIAS? ¿QUE HACE QUE ESTES SEGURA? 
¿QUE NOTICIAS? LO PUEDO VER 

ESA ES UNA BUENA PREGUNTA HE OIDO QUE TU ERES UNA ESPECIE 


¿NO ME LO VAS A DECIR? DE GENIO CHISTOSO, JUDY 
ESCUCHA JUDY, PIENSO QUE ERES TAN ¿QUIEN TE LO DIJO? 
AMISTOSA COMO LAS OTRAS PERSONAS NO IMPORTA 
CON LAS QUE HE HABLADO ¿POR QUE NO CONTESTAS A MIS PREGUNTAS? 
GRACIAS MI QUERIDA AMIGA JUDY. ¿TU NO PIENSAS QUE 
NO LO MENCIONES TODOS 

LOS HUMANOS SON MALEDUCADOS? ¿NO? 


Cómo funciona 


Hay dos métodos diferentes en el programa para producir las respuestas de la computadora. 
Una es una rutina de «comprobación de frases» y la otra es un generador de frases aleatorias. 


La respuesta de la computadora 


QUE NOTICIAS IN có W£Gñs una BUENA PREGUNTA 


SS 
OQ 
do 


S 
5) 


La rutina de comprobación de frases tiene 
una lista de palabras usadas frecuentemente 
almacenada en una matriz llamada O$. Para 
cada palabra o frase hay una respuesta 


adécuada almacenada en M$. Cuando tecleas 
algo, la computadora comprueba para ver si 
has usado alguna de las frases de QS, y si lO 
has hecho, usa la correspondiente respuesta 
en MS. 


* Para transformar el programa para computadoras Sinclair (Timex) 
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ver página 47. 


Generador de frases 


El generador de frases aleatorias consiste en se almacenan en matrices en la memoria de 
frases a medio formar que las computadoras la computadora y han ido especialmente 
completas con verbos, nombres y adjetivos escogidas para que tengan sentido en las 
escogidos aleatoriamente. Todas las palabras frases. 


Para qué son las variables 


alabras para 
nzar frases 


El programa 


Fija las matrices para almacenar 


100 CLS palabras y frases (N.B. En algunas 

110 DIM VS(10), NS(10), AS(10) ed e 
nsionar matrices de menos 

120 DIM T$(10), S$(10) diez elementos). 

130 DIM M$(30), 0$(30), C(30) 

140 REM MIRA EN LOS DATOS Va a una subrutina para introducir 


150 GOSUB 100 -=————————— TT todas las palabras y frases en las | 


200 REM PERSON'S INPUT matrices. 
210 INPUT «HOLA, ¿COMO TE LLAMAS?»; DS 


220 PRINT Tu respuesta se almacena en 1$. 
230 PRINT «HABLAME»; DS Salvaguarda en caso de que el 
240 INPUT 1$ usuario presione RETURN 


250 IF l$=« » THEN GOTO 220 directamente y I$ esté vacío. 


260 IF I5=«ADIOS» THEN GOTO A NX Si tecleas ADIOS, la computadora vaa 
la línea 910 a preguntarte si quieres 39 


dejar de ejecutar el programa. 


EL LISTADO CONTINUA A LA VUELTA DE LA PAGINA 


El número aleatorio en la variable RESPUES 
300 REM RESPUESTA DE LA COMPUTADORA decide qué método usará la computadora E 


A : responder. Si RESPUESTA es menor que 6 
310 LET RESPUESTA=INT(RND(1):8+1 rutina dé comprobación asirataieS ba a a 
320 IF RESPUESTA<6 THEN GOTO 490 línea 490. 
330 GOTO AAA AA 2 Si RESPUESTA es 6 o por encima va al generad Bl 
de frases en la línea 600. 


340 PRINT E 


390 PRINT R$ Después de construir su respuesta la computadora 
360 PRINT la almacena en R$ y entonces la imprime en la 
pantalla en la línea 350. 


400 REM COMPRUEBA CUANTAS RESPUESTAS SE HAN USADO 


EL LISTADO CONTINUA ABAJO 


1 
B 


ADAN TINA 


PRERRERARREBO, 


pea 
deere 


N 


Las líneas 400-470 comprueban cuántas correspondiente en una matriz llamada C. 
respuestas de M$ han sido usadas. Cada vez Esto evita que use la respuesta para esa frase 
que la computadora encuentra una de las otra vez. Las líneas 400-470 comprueban 
frases de Q$ en lo que introduces, pone un cuántos marcadores hay en C y si hay más 
número 1 como un marcador en la posición de 12, vuelven todos los marcadores a cero. 


Bucle para contar los marcadores 


405 LET T=0 que hay en la matriz C. 
410 FOR K=1 TO 30 El total es almacenado en T. 
[co LET T=T+C(K) Si T es menor que 12, se han usado 


430 NEXT K a o | 
440 IF T<12 THEN GOTO 460 marcadores. 

450 FOR K=1 TO 30: LET C(K)=0: NEXT (y ———__———————— Bucle para volver cada número a 0. 

470 GOTO 240 Vuelta a la línea 240 para esperar a que la persona 

490 REM RUTINA DE COMPROBACIÓN DE FRASES OS 


500 FOR FRASE=1 TO 30 ——_—_—_—_—_—_—_—. E a ejecutar tantas veces como frases tenga 


Cada vez que el bucle se repite, la computadora 
510. LET L1=LEN(OS(FRASE))———————————— mide la longitud de la frase siguiente en Q$ y 
almacena la longitud en LI. 


520 LET 12= LENA El número de caracteres que tu introduces (1$) se 


almacena en 12. 


TEST es un bucle de anidamiento a ejecutar tantaS 
se veces como caracteres hay en lo que hayas 
p30 FOR TEST=1 TO A introducido. Cada vez que el bucle se repite la 
computadora comprueba los caracteres en 15 con 
540 IF MID$(I$, TEST, L1)=0$ aquellos en la frase de Q$. Si coinciden va a la línea ' 
(FRASE) THEN GOTO 560 E 
Si, después de repetir todos los bucles, la 


, 550 NEXT TEST: NEXT Js 4 computadora no puede encontrar ninguna de las 
be FRASE: GOTO 600 o Q$ en L$, va al generador de frases en la 
sE ea . 


_ * Si estás usando un micro BBC, mira la nota en la página 46, >» 


0 THEN GOTO 550 
o IF O(FRASE)> S ba 
d lb ear una frase que coincide, salta 
E fe C(FRASE)= En el bucle y viene a la línea 560. 
Sl ad A ses comprueba el marcador en la 
a DS atriz C que corresponde a la frase. Si el 
0 marcador no es 0 vuelve a los bucles a ver 
en A0 si hay otra frase que coincide en 1$. Si el 
marcador es 0 lo cambia a 1 en la línea 
570. Entonces en la línea 580 busca la frase 
e en Mf$ y la pone en R$ 
e1, LISTADO CONTINUA ABAJO sta para ser impresa en la línea 350. 


Cómo funciona el comprobador de frases 


¿QUE QUIERES 


Primera fase en OQ$. 


La primera vez que se efectúa la rutina de repite el bucle TEST. Esta vez TEST = 2 así que 
comprobación de frases FRASE = 1 por lo compara los caracteres 2 a 8, y en adelante. 
que la computadora examine la primera frase Si los caracteres en I1$ no son iguales a Q$ la 
en O$. La primera vez que se efectúa el bucle computadora vuelve al principio del bucle 
TEST, TEST = 1 así que la computadora FRASE a seleccionar la frase siguiente de Q$. 
compara la frase en Q$ con los caracteres 1 a 

7 (la longitud de Q$) en 1$. Si no son iguales 


600 REM GENERADOR DE FRASES Números aleatorios para escoger qué 
> E palabras y frase utilizar. El número en E 
610 LET E=INT(RND(?) 1051) decide qué frase usará la computadora. F 
620 LET F=INT(RND(1)=10+1) es para verbos, G es para adjetivos, H es 
para nombres y L es para comienzos de 


630 LET G=INT(RND(1)-10+1) 


frase. 

640 LET H=INT(RND(1)=10+1) 
pad L=INT(RND(1)-10+1) El número en E le dice a la computadora a 
660 ON E GOTO 700, 720, 740, 760, 780, 800, 830, 850, 870, 890 — qué línea ir. Si E = 1 va al primer número 

la lista, si E = 2 va al segundo; etc. Para 
700 LET RS=<QUE PIENSAS AS Sdbr A palabra BASIC ON, ver página 

SOBRE «+N$(H)+>»?» 20. 
Las líneas 700-900 contiene diez 
710 GOTO 340 frases pecan formadas que 
7 1 tadora rellena con 

720 LET R$=S8(L) +» «+D$+>» «¿NO PIENSAS QUE TODOS LOS a e NS vá elo Para 


HUMANOS SON «+AS(G)+» NOD ' hacer que la computadora sume 
D$ almacena tu nombre. cadenas de estas maneras usa un 
signo + . Tienes que tener 
730 GOTO 340 cuidado de poner los espacios 


dentro de las comillas para que 


740 LET Rg=«HE OIDO QUE ERES UNA ESPECIE DE «+AS(G)+ las frases estén debidamente 


espaciadas. La computadora pone 


«+ TS(H)+> «+D$ 

leta en R$ y 
150 GOTO 340 AnS ala a la línea 340 
160 LET RE=S$(L)+> «+D$+», PIENSO QUE ERES TAN «+AS(G)» para imprimirla. 


EL LISTADO CONTINUA A LA VUELTA DE LA PAGINA 


41 


A 


42 


765 LET R$=R$+«COMO EL RESTO DE LA GENTE CON LA QUE HE HABLADO» 


770 GOTO 340 
780 LET RG=«ME SIENTO “+AS(G)+" AHORA» 

790 GOTO 340 

800 PRINT: PRINT «SSSHHH... ESTOY PENSANDO...» ds 

810 LET RS=<DEJA QUE "+VS(E)+” “-+NS(H)+” PIENSO “NS(H)+" ES “AS(6) 
820 GOTO 340 

830 LET R$=HABLAME DE “+NS(H)+”, "+D$ 

840 GOTO 340 

850 LET R$=«PIENSAS QUE SOY “+AS(G)+”, "+D$+"?» 

860 GOTO 340 

870 LET RS=DEJA QUE “+V8(F)+” ALGUNA OTRA COSA “+A$(G) 

880 GOTO 340 

890 LET R$=«ADIVINA QUE ESTOY PENSANDO» +D$ 

900 GOTO 340 Si tu respuesta a la 

910 REM RUTINA DE DESPEDIDA Hí———————————————— dia E press la 
920 PRINT «¿YA HAS TENIDO BASTANTE?» pta 
930 PRINT «¿HAY ALGUIEN AQUI QUE PUEDA HABLAR...?» 

940 INPUT 28: IF Z28=<«SI» GOTO 210 

950 PRINT: PRINT «ADIOS ENTONCES» 

960 END 


1000 REM FRASES PARA LA RUTINA DE COMPROBACION DE FRASES 
1010 FOR I=1 TO 30: READ Q$(1): NEXT | 
1020 DATA QUIÉN ERES, ¿QUE?, SIGINIFICA, PORQUE, TU 


cualquiera de estas 
frases para hacer que la 
computadora dijera algo 
más. 


Estas líneas contienen las frases 


1030 DATA «YO», «El», «HABLAR», «NO» que la computadora busca en la 
1040 DATA «ERES», «Ml», «Sl», TU, ? que tú introduces. Ten cuidado en 
1050 DATA «PIENSA, MALEDUCADO, GRACIAS, FUERA» rad e ás 
1060 DATA ELLOS, ?, INFERIOR, «NO», «ES» dentro de las comillas son parte 
1070 DATA A, ?, AHORA de los datos. 


1100 REM RESPUESTAS DE LA COMPUTADORA A LAS FRASES EN Q$ 
1110 FOR I=1 TO 30: READ M$(1): NEXT | 
1120 DATA SOLO SOY UNA COMPUTADORA 
1130 DATA NO IMPORTA, ESA ES UNA 
BUENA PREGUNTA 
1140 DATA NO LO SE, «¿BIEN, POR QUE NO?» 
1150 DATA QUE QUIERES DECIR, «¿QUIEN ERES?» 
1160 DATA OH, ¿QUE QUIERES DECIR? 


1170 DATA QUIERES QUE ME CALLE e os a 
1180 DATA DIMELO TU, ¿QUE QUIERES DECIR? Is Sa OL las 
1190 DATA MY-MY-MY, ASI QUE ESTAS DE ACUERDO respuestas están en el mismo 
1200 DATA ¿NO TE GUSTO? : orden que las frases. Por 
1210 DATA ¿POR QUE?, ACLARATE LAS IDEAS. GRACIAS Po AN 
1220 DATA AUN NO HAS VISTO NADA ia OR 


1230 DATA NO LO MENCIONES 
1240 DATA Y TU, NO ME IMPORTA, QUE 

PREGUNTA MAS ESTUPIDA 
1250 DATA TIENES UN COEFICIENTE INTELECTUAL BAJO, BASURA 
1260 DATA QUE HACE QUE ESTES SEGURO, VETE 
1270 PIERDETE, EL CONOCIMIENTO ES UN PROBLEMA PARA MI 
1300 REM BUSCA EN LOS NOMBRES 


1310 FOR l=1 TO 10: READ N$(1): NEXT | 
1320 DATA FUTBOL, BAILE 

1340 DATA EL TIEMPO, LAS NOTICIAS 
1350 DATA MI CPU PESCANDO 

1360 DATA LA BALLENA AZUL, EVOLUCION 
1370 DATA GEOGRAFIA, COMIDA 


Estos son los nombres a poner 
en las frases aleatorlaS. 


SCA EN LOS VERBOS 
e 1 10-10: READ VS): NEXT 
Vf DATA PIENSA SOBRE, HABLA SOBRE da 0 
0 DATA DISCUTE, CONTEMPLA Bss se os setos 
"elo DATA REFLEJAR EN, MEDITAR SOBRE 
“450 DATA PENSAR, PONDERAR 
1460 DATA CERCIORATE, CONSIDERAR 
:200 REM BUSCA EN LOS ADJETIVOS 
se10 FOR 1=1 TO 10: READ AS(): NEXT! 
152 DATA ESTUPDO, TO 
1580 DATA INTELIGENTE ase 
10 DATA CHISTOSO, AMISTOSO n los adjetivos, 
1550 DATA TEDIOSO, PESADO 
1560 DATA MALEDUCADO, VERSATIL 
1600 REM BUSCA EN LOS COMIENZOS DE FRASES Y 

EN OTROS NOMBRES, POR PAREJAS 

s6fo FOR 1=1 70 10: READ S$(), TS(D: NEXT! 
1620 DATA DIOS MIO, ABURRIMIENTO 
1630 DATA «BIEN», SAPO 
1640 DATA VEAMOS, JOVEN PROMETEDOR 
1650 DATA ESCUCHA, GENIO 
1680 DATA MIRA, DUMBO 
1670 DATA UMMM... IMBECIL 


Puedes cambiar cualquier» 
de estas palabras pero 
asegurate de que las nuevas 
palabras tengan sentido en 
as frases. 


uando teclees tus respuestas ¿ 
tu computadora no uses nunca 
coma. Si lo haces, tu 
computadora pensará que la 
coma indica el final de tu 
respuesta e ignorará las palabras 
después de la coma. 


1680 DATA AHORA, PARASITO Ara pe de elemen des 

1690 DATA REALMENTE, PRODIGIO palíbra Hara Operar 
1700 OH NO!, MONSTRUO un nombre. Son leidos en parejas 
1710 DATA MI QUERIDO AMIGO, CAPRICHO DE COMPUTADORA para ahorrar espacio. 


1720 RETURN 


Ideas para cambiar el programa 


1. La manera más fácil de cambiar este programa es cambiar las palabras a 
mejor comprobar cada palabra en cada frase para od dai de ido. 

j usas no ; 
momento, todos los nombres en N$ son singulares. i s no) E 
necesitarás cambiar los verbos. Puedes añadir palabras si quieres. Si lo a do 
necesitarás cambiar el tamaño de las matrices. Los bucles para buscar en los y 
números aleatorios en las líneas 610-650. Ea 
2. También podrías probar a cambiar las palabras en Q$ para hacer LS 8 
computadora saque frases diferentes. Necesitarás pensar Dei A pr : 
cada nueva frase y poner las respuestas en las posiciones Cort 


ias más 
3. Para hacer que la computadora use el generador de frases aleatorias 


> ; , jo. También 
frecuentemente cambia el número 6 en la e Min deres de 
puedes cambiar la frecuencia con que la comp 1 número 12 en la línea 440. 


respuesta en la matriz C. Para hacer esto, cambia e ho 
ESCUCHA, ROM, ¿TÚ 


Modalidad de soñar despierto OY NO PIENSAS QUE 

Puedes hacer que la computadora hable == O UL TODOS LOS HUMANOS 
consigo misma añadiendo las siguientes SON ESTUPIDOS, NO? 
líneas al programa: 


bra la VEEBSS para almácena 
160 PRINT «MODALIDAD DE CONVERSACIÓN as En e sa la palabra 
O SOÑAR DESPIERTO A argo nombre para dí a 
a e 
«ROM»: GOTO 600 La respuesta de end Y Entonces 
470 IF K$=«C» THEN GOTO 240 vuelve da e e lelve a la línea 310 a 


tado 
475 1F K$=D> THEN LET a agan 43 
480 LET R$== »: GOTO 310 


44 


Rutina de respuesta 

En estas dos páginas hay otra rutina que puedes añadir al programa de la conversación. Hace 
que la computadora te responda usando tus mismas palabras. Las conversaciones para 
computadoras Sinclair se dan al final de la página opuesta. 


YO PIENSO QUETÚ 


La rutina de respuesta funciona de una manera similar a como lo hace la rutina de 

comprobación de frases. Hay dos matrices de información U$ y W$. U$ contiene las frases que 
tu podrías utilizar en lo que introduces y W*$ contiene las respuestas de la computadora. Si usas 
una de las frases de U$ la rutina de respuesta la reemplaza con la correspondiente frase de WS 


entonces le añ al de tu frase. z z 
y AO pe Fija las matrices para U$ y W6$ y otra matriz 


135 DIM US(9), WS(9) DA almacenar las respuestas de la 
138 DIM Z$(5) | 
155 GOSUB A Va a la subrutina para buscar en los datos. 


325 IF REPLY=7 THEN GOTO == Le dice a la computadora cuándo usar la rutina de 


respuesta. 


2000 REM RUTINA DE RESPUESTA 


2010 LET 1 SRA Z es un contador. 

2020 LET O Esto es, el número de caracteres que introduces. 
E Bucle a efectuarse tantas veces como caracteres 

2030 FOR A=1 TO P yqúAAA—————————. har endo le odos 

2040 FOR B=1 TO 9 2 Bucle a efectuarse tantas veces como caracteres 


hay en el elemento más largo en WS. 

2050 LET L=LENUS(B)) Cada vez que se repite el bucle B, la longitud del 

| siguiente elemento en U$ se pone en L. 

Compara los caracteres A a L de lo que tu 

2060 1E MIDS(IS, A, L)=US(B)THEN E introduces con la frase con el subíndice del valor 

6010 2140. de B en U$ (B es fijado por el bucle). Si las frases 

coinciden, la computadora va a la línea 2140. 
Cada vez que se repite el bucle B la computadora 

2070 NEXT B: NEXT A AáÁáÁá——— comprueba la frase siguiente en U$. Cuando se 


repite el bucle A recoge la siguiente secuencia de 
Caracteres en 1$. 


2080 IF 28(1)== > THEN GOTO 0 Vuelta al generador de frases aleatorias si ninguná 
frase coincide. 
* Si estás usando un micro BBC, ver la nota en la página 46. 


2100 PRINT 254); 
=> 


mo 

—d 
—h 
=o 


0150 IF A>1 THEN LET 2$(2)=LEFTS 
(15, A-1)+< »+WS(B)+« » 


99 NEXT J 
race] 


agar 


2160 IF A<2 THEN LET 26/2)=WS(B)++< » 
sd dl di pe Y Pone el resto de tu frisó E Z5 vado 


2180 GOTO 2020 


2200 REM DATOS PARA LA RUTINA DE RESPUESTA 


2210 FOR I=1 TO 9 
2220 READ US(I), WS(I) 
2230 NEXT | 


2240 DATA YO SOY, TU ERES, TU ERES, YO SOY 


2250 DATA «YO», TU, «Ml», TU 


2260 DATA «YO», «TU», «TUYO», «MIO» 
2270 DATA «TUYO», «Ml», «MIO», «TUYO» 


2280 DATA TU, COMPUTADORA 
2290 RETURN 


ZX81 necesitarás usar el 


135 DIM US(9, 7) 
136 DIM WS(9, 9) 
137 DIM 25(5, 20) 
2042 LET Ph=« » 
2044 FOR l=1 TO LEN (US(B 


2048 NEXT | 
2050 LET L=LEN(PS) 


2080 1F Z=0 THEN GOTO 600 


2170 LET I$=I8(A-+L TO) 


2290 RETURN 


2055 IF L+A—1>P THEN GOTO 2070 


2060 IF I$(A TO A+L—1)=P$ THEN GOTO 2140 ——S 
2240 DATA «YO SOY=*w», «TU ERES», «TU ERES», «YO SOY» 
2250 DATA «YO vxrrr», «TU», «Mier», «TU» 
2260 DATA «YO Li «TU», «TUYO *>», «MIO» 


Se DATA «TUYO x», «Ml», «MI0**», «TUYO» 
280 DATA «YO s».», «COMPUTADORAS» - 


2150 1F A>1 THEN LET 28(2)=I$(TO A=1)-+< »+WS(B)+< 
2160 IF A <2 THEN LET 28(2)=W8(B)+< > 


para introducir los datos. Pon el bucle del ZX81 para intro 
1000 y 1720 y las sentencias DIM antes de la línea 1000. 


) 
2046 IF US(B) (1 TO 1)< ><*» THEN LET P$=P$+US(B) (1 TO 1) 


Imprime todas las respuestas en Z$. 


Pone la parte que quede de tu frase en R$ y 


entonces vuelve a 


la línea 350 a imprimirla. 


Z cuenta las respuestas en Z$. 


e variable A fija el bucle en la línea 2030 y es 
el número del primer carácter de la frase en 1$ 
que coincide con la frase en U$. Si A > 1 la 


línea 2150 
la frase en 
de W$. 


pone los caracteres a la izquierda de 
Z$ y entonces le añade la respuesta 


Si A < 2 entonces la frase que coincide está al 


Rutina de respuesta para computadoras Sinclair 
Introduce las siguientes líneas para el Spectrum y el ZX81. De todas maneras para el 


método dado en la página 47 en el programa de conversación 
ducir datos entre las líneas 


Pon una frase U$ en P$ usando 
las *s para encontrar el final de la 


frase. 


Si P$ e 


s más larga que la frase 15, 
se vuelve atrás a seleccionar la 
frase siguiente. 

Si la frase 1$ = a la frase 


Los espacios son una 
importante 

parte de la importante 
información, 
completar las ca enas CO 


principio de 1$ así que la computadora sólo 
pone su respuesta en Z$. 


vuelve a los bucles a ver si hay otra frase que 
coincida. 


Estos son los datos para U$ y W?$. 


P$ va a la línea 2140. 
Si ninguna frase coincide 
entonces vuelve a generador 
de frases aleatorias. 

si A > 1 pone los ti 
al principio de 1$ en 4 y 
áfde la frase W$. Si A < 2 
sólo pone la frase W$ en 25. 


así que tienes que 
d n*s. 


Y 


AA 


EA 


Transformación de programas 


Estas dos páginas te enseñan cómo transformar los programas para que funciones en 
ZX81 y Spectrum y cómo transformar los programas de gráficos para que funcionen 
en computadoras que dibujen líneas en relación con el último punto dibujado. Al igual 
que insertar las líneas que aquí se dan, también tienes que hacer los otros cambios 
necesarios a tu computadora, por ejemplo, usar el comando de gráficos de tu 
computadora. La instrucción RND y cambiar los nombres de las variables si es 
necesario. 


Base de datos para Spectrum 
(Timex 2000) 

10 DIM T$(10, 14): DIM Y(12) 
15 DIM M(10, 12) 


120 
417 Igual que ZX81 
425 


Recuerda poner entre comillas cada elemento de 
información en las líneas DATA. 


Juego de encontrar palabras para 
computadoras Sinclair (Timex). 


Cambia BUSCANDOS por C$ y cambia las líneas 
170 y 200 por las siguientes. 


170 LET L$=WS(R TO R) 
200 LET C$=C8(2 TO)+L8 


Base de datos para ZX81 (Timex 1000) 


10 DIM TS(10, 14) El segundo subíndice es la 
12 DIM Y(12) longitud de la cadena más larga. 
14 DIM M$(10, 12) : 


120 GOSUB 100+100*G Usa C para calcular el número de 


línea. 
217 ÚEr l= LEN(25) y — eTaics a la computadora qué 
225 1F 2$=T8(1) (1 TO L) THEN GOTO 440 caracteres comprobar. 
455 IF VAL(MS(l, J))=1 THEN PRINT «GANO 
LA COPA DEL MUNDO EN»; Y(J) 


460 IF VAL(MS(l, J))=2 THEN PRINT «FUE 


La matriz de datos se almacena 
en una matriz de cadena así que 


FINALISTA EN»; Y(J) necesitas VAL para decirle a la 
555 IF VAL(MS(J, )=1 THEN PRINT T$(J); «GANO computadora que tome el valor 
LA COPA» numérico. 


-2170 IF C>0 AND C<6 THEN GOTO 2180 
2175 PRINT «POR FAVOR, INTRODUCE UNNUMERO ENTRE 1Y 5» [- 
2176 GOTO 2150 


Base de datos y programa de 
conversación para BBC. 

Estos dos programas usan bucles para 
buscar en los datos, entonces saltan de los 
bucles cuando el elemento de información 
ha sido encontrado. El micro BBC sólo te 
dejará hacer esto diez veces al final de los 
cuales obtendrás el mensaje de error «TOO 
MANY FORS» (Demasiados FORS). Para 
evitar estos, cambia los bucles por variables 
que sean contadores con sentencias 
IF...THEN. Por ejemplo, usa las siguientes 
líneas en la base de datos: 


En vez de tener que introducir todos los años 
- puedes hacer que la computadora los calcule con 
las siguientes líneas. 


1000 FOR I=1 70 3 
1010 LE Y()=1926+14 


1030. OR I=0 TO 8 
40 LET (+4) =1950+4+ 


420 LETI=0 
422 LETI=1+1 
430 IF I<10 GOTO 422 
520 LETI=0 

522 LET I=1+1 
530. 1F I<12 GOTO 522 


os instantáneos y dibujo de gráficos 


utadoras (por ejemplo, Spectrum y Oric) ¡buj 
Pa ric) que dibujan líneas : 
e y no desde la esquina de la pantalla oli punto dy medido desde el 
de Grál icos instantáneos y de gráficos (Necesitarás cambi iS cas er los 
de gráficos de tu computadora. lar DRAW y PLOT con los 


Gráfic 
Para Comp" 

unto prevl 
programas 
comandos 


Gráficos instantáneos 
175 DRAW CX(1)-CX(4), CY (1) —CY(4) 


Diagrama de barras 
220 PLOT 1, H: DRAW 0, —H-+1: DRAWW, 0 


e ORAN CX0=CX(I=1), CY()=CY(I=1) 300 DRAW 0, INT (B(1)=Y) 
630 DRAW LX(ROW=+2, 1) LX(ROW, 1) 320 DRAW 0, INT(S(I=Y) 
W+2, 1) -LY(ROW, | fi ¡ 
LY(ROW+2, 1) LW(ROW, 1) Gráfica lineal 


Para encontrar las coordenadas del final de la 
línea, la computadora resta las coordenadas del 290 DRAW X, INT((B(N)B(N—1))*Y) 
último punto dibujado. 330 DRAW X, INT((S(N) —S(N—1))»Y) 


Programa de conversación para Spectrum (Timex 2000) 
Haz los siguientes cambios para el Spectrum: 


110 DIM V$(10, 11): DIM N$(10, 16): DIM AS(10, 11) 

120 DIM TS(10, 14): DIM S$(10, 14) 

130 DIM M$(30, 29): DIM Q$(S0, 7) DIM C(S0) 

245 PRINT IS 

500 FOR 0=1 TO ÁÁá O Usa Q en vez de FRASE. 
510 LET P$=« » 

512 FOR I=1 TO LEN (Q$(Q)) 


514 1F Q$(0) (1 TO l)< >< » THEN 
LET Pg=P$+08(0) (1 TO l) Pone la frase de Q$ en PS. 


916 NEXT | 
930 FOR T=1 TO L2—LEN(P$)+1 


940 IF IS(T TO T+LEN(P$)—1)=PS THEN 
os Comprueba si I$ = Pf. 


950 NEXT T: NEXT Q: GOTO 600 

560 

a Cambiar la variable FRASE a Q 
Esto significa que si E < 7 

GOTO (ve) a la línea número 


600 mo ai q E 0 ESO TO 
da * si E > 
(E=6)=20)) 0 a la linea número 
- E +— 6)x20). 

rograma de conversación para ZX81 (Timex 1000) 


Para el ZX81 necesi ( 
: , esitas un sistema para 3. Cambia la lí o 
E todos los datos. Puedes hacer esto de 
A htencias INPUT y bucles. Para ejecutar 1720 STOP 
e en ZX81 haz los siguientes 
los: 
LH : 4. Teclea el programa, entonces teclea RUN 
De az los mismos cambios dados para el 970 d nas as OS a medida 
'm arriba, pero ¡ que la computadora te la pide. 
en las Es Ao pon las sentencias DIM 
2. Cambi , 5. A continuación, para probar el programa, 
Sentencias de Dor teclea GOTO 100. No presiones RUN, ya que 
1000 REM SIA si los hace toda la información se perderá. 
FRASES PA 

BACION DE e CAL TIN DE COMBO: 6. Ahora puedes grabar el programa en un 

1010 Fon l=170 30 cassette. Cuando lo recojas, teclea siempre 
GOTO 100 para ejecutar el programa. 


1020: INP 
1080 Mn 


47 


48 


Respuestas 


Problema del robot corredor (pág. 24) 
10 INPUT «¿CUAL ES LA TEMPERATURA?»; TEMP 


20 INPUT «¿CUANTOS SEGUNDOS?» S 


30 1F TEMP< >60 THEN LET D=S+(500+10+(TEMP—60)) 


ELSE LET D=500*S 


40 IF D<1 THEN PRINT DEMASIADO FRIO PARA ZAK 


50 PRINT «A»; TEMP; «GRADOS, ZAK 


La computadora calcula primero 10x(TEMP —y 
esto le da la diferencia de distancia para 
TEMP grados (Si TEMP está por debajo de 60, 
la respuesta de este cálculo es negativa). 
Sumando 500 a la respuesta da la distancia que 
Zak puede correr en un segundo y 
multiplicándola por S da la distancia en S 


segundos. 


PUEDE CORRER»; D; «METROS EN»; S; «SEGUNDOS» 


Cambios en el Shell sort (pág. 34) 


90 LET X=0 

95 LET CAMBIO=0 

231 LET X=X+1 

271 LET CAMBIO=CAMBIO+1 


365 PRINT «HUBO»; X; «COMPARACIONES 


Y»; SWAP; «CAMBIOS» 
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Barras más anchas (pág. 37) 


285 FOR J=1 TO 8 STEP 2 
290 PLOT INT (l+X+J), 1 


computadora. 


300 DRAW INT(I=X+), INT (B(1)=Y) 
310 PLOT INT(lX-4=J), 1 
320 DRAW INT(I=X—4—J), INT(S(1)=Y) 


325 NEXT J 
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